
Este livro inclui uma gama de 26 programas com- 
pletamente novos que vao desde os testes de 
memoria aos jogos mais sofisticados como os de 
guerra. Os programas, aplicaveis aos mais ele- 
mentares computadores domesticos, foram escri- 
tos numa versao BASIC muito facil que o leitor 
podera introduzir sem dificuldade em qualquer mi- 
crocomputador. Cada programa e exaustivamente 
descrito e sao sempre indicadas a lista de varia- 
veis e a capacidade de memoria requerida, in- 
cluindo tambem exemplos de execugao. 

Para alem de muitas horas de entretenimento, 
este livro proporcionara ao leitor ideias novas que 
poderao ajuda-lo a melhorar os seus proprios pro¬ 
gramas. 
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prefAcio 


O leitor tern perante si um livro unico sobre programas de 
computadores — contendo programas que ndo pode encontrar 
em nenhum outro local . Apenas dois, «Barco a motor» e «Alga- 
rismos significativos» foram jd impressos . Nestas condigoes, o 
livro ndo e apenas mais uma colecgao de programas muito co- 
nhecidos mas sim um texto completamente novo, com jogos e 
ideias que nunca viram anteriormente a luz do dia . Os progra¬ 
mas sao todos meus, pelo que se quiser culpar alguem pode 


apontar-me o dedo ... 

Os programas podem ser classificados de diferentes maneiras . 
O metodo que adoptei e um tanto empirico, baseando-se numa 
apreciagao subjectiva do seu comprimento e da sua complexida- 
de . Ndo ha duvida de que este metodo produz algumas anoma- 
lias, mas espero que estas ndo retirem prazer ao utilizador . 

Os programas variam desde o bastante simples ao extrema- 
mente complexo. Os primeiros podem ser traduzidos para qual- 
quer computador, mesmo o mais simples, que utilize a BASIC 
como linguagem de programagao, enquanto que os ultimos ne- 
cessitarao jd de uma memoria utilizdvel ate 13 K. Inclui nas no- 
tas de cada programa alguns comentarios sobre os requisitos es- 


peciais da conversao para a sua maquina. 

Foram incluidas igualmente algumas notas de interesse para 
fazer enxertos noutros programas . Chamo a atengao do leitor 
para quaisquer pontos de cada programa que justifiquem um 
maior estudo do leitor com vista a inclusao noutros programas. 
Deste modo, espero que o prazer que tenho ao programar um 
computador possa ser passado a outros, e dar o meu pequeno 

contributo para que o hobby a que nos dedicamosprogrida. 

D.D. 
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INTRODUCED 


Tende a ser aceite que a «melhor» ou «mais natural)) versao 
da BASIC e aquela que por acaso e utilizada pela nossa maqui- 
na. Como possuidor e utilizador de bastantes versoes, preferi es- 
crever em STWP BASIC porque e muito facil de traduzir para 
qualquer outra BASIC. Todos os programas deste livro foram 
escritos nesta versao, utilizando urn computador SWTP 6800 
com uma memoria de 32 K, e gravados em «minifloppies )> (dis- 
quettes). Poucas instrugoes dependem com efeito da maquina 
usada (mas apresento uma lista das que o sao: algumas podem 
muito simplesmente ser omitidas). O que se segue e uma descri- 
gao da SWTP BASIC para diminuir as dificuldades que o leitor 
possa encontrar na tradugao. 

VARlAVEIS — Uma variavel pode ser qualquer letra isola- 
da, ou uma letra e um numero entre 0 e 9. 

VARlAVEIS DE “STRING” — Podem ser designadas por 
qualquer letra seguida do sinal $, e sao usadas para guardar na 
memoria dados literais. Por exemplo, A$ pode ser “1224” ou 
“Exemplo”, 1224 (as aspas definem a string). Quando as strings 
sao inicializadas, sao dimensionadas para um maximo de 32 ca- 
racteres desta BASIC: e no entanto possivel ampliar a string 
usando a ordem STRING, por exemplo STRING - 50. As linhas 
de instrugdes sao limitadas a 72 caracteres. Sao aceites linhas de 
instrugoes multiplas desde que estas sejam separadas usando o 
sinal 

CONCATENA£AO — As strings podem ser concatenadas 
(juntadas entre si) recorrendo ao sinal ‘ + \ Por exemplo, 
A$ = “Ola”: B$ = “Joao”: C$ = A$ + B$ (Neste caso C$ contera 
a string “OlaJoao”, por nao ter sido previsto um espago de se- 
paragSLo nem em A$ nem em B$). 
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ARRAYS — Se nao tiverem sido dimensionados por uma ins** 
trugao DIM, a maquina consider a que o array ou quadro possui 
10 elementos. O mesmo acontece com matrizes —- se nao forem 
dimensionadas, a maquina considera que se trata de uma matriz 
de 10 x 10. Para poupar memoria, portanto, e aconselhavel di- 
mensionar os arrays. As variaveis de string devem igualmente ser 
dimensionadas como array. 

VALORES INICIAIS — Quando se utilizam quaisquer variaveis 
pela primeira vez, a SWTP BASIC considera que possuem o valor 
inicial de 0. Nao e necessario portanto atribuir-lhes esse valor, ao 
contrario do que acontece noutras versoes desta linguagem. 

LINE? = X — Esta ordem pode ser usada para definir o nume- 
ro de posigdes de impressao numa linha, sendo X o numero de 
posigoes desejado. Se a posigao de impressao se encontra nos ul- 
timos 25% do comprimento da linha, e a maquina encontra um 
espago, a SWTP BASIC forga um retorno de linha e a passagem 
k linha seguinte, evitando assim que as palavras sejam cortadas 
no final da linha. 

DATA — Estas instrugoes podem ser colocadas em qualquer 
ponto do programa. Usam-se ordens para separar os dados, mas 
nao necessariamente no final de uma linha. Os dados numericos 
e em string podem ser misturados, mas o programa deve chama- 
-los pela ordem correcta. As strings nao necessitam de estar en- 
cerradas dentro de aspas a menos que incluam uma virgula, caso 
em que as aspas sao obrigatorias. 

RESTORE — Leva o “pointer” de dados a indicar novamen- 
te a primeira instrugao DATA. 

END — N&o necess&ria em SWTP BASIC a menos que se tor- 
ne necessaria para terminar um programa a meio da listagem. 
END pode aparecer mais do que uma vez, mas nao e de modo al- 
gum necessario utiliza-la. 

' FOR... TO... NEtfT... STEP — As instrugoes FOR e NEXT 
sao usadas em conjunto para formar “loops”. A variavel pre¬ 
sente na instrugao FOR e redifinida de cada vez que .executa o 
loop, num minimo de uma vez. Quando encontra a instrugao 
NEXT, a variavel e incrementada de 1 se nao tiver sido definido 
outro valor de STEP, e o programa retoma a; execugao da instru¬ 
gao que se segue a FOR... TO. Se ao ser incrementada a variavel 
assumir um valor maior do que o indicado em TO, a execugao 
passa para a linha que se segue a instrugao NEXT. STEP pode 


ser negativo, caso em que a execugao continua ate a soma ser in¬ 
ferior ao valor indicado em TO. FOR, NEXT e STEP podem ser 
expressoes, mas sao avaliadas apenas uma vez. 

GOSUB — Depois de cumprida a subrotina, o controlo passa 
a execugao para a linha que se segue a instrugao GOSUB. 

GOTO — Salto incondicional. 

IF... THEN —■ Se a relagao dada na instrugao IF for “verda- 
deira”, a execugao passa para a linha que se segue a THEN. Por 
exemplo, IF X = 5 THEN 50 transfere a execugao para a linha 50 
se e so se X = 5. Se a relagao e falsa, a execugao passa para a li¬ 
nha que se segue a instrugao IF — isto e, o resto dessa mesma li¬ 
nha nao e consider ado pela maquina, mesmo que se trate de uma 
linha com varias instrugoes. 

E igualmente possivel executar uma instrugao BASIC valida 
depois de THEN. Por exemplo, IF X = 5 PRINT “Correcto”. 
Note igualmente que a SWTP BASIC parte do principio de que 
THEN est& presente na instrugao. Algumas outras versoes obri- 
gam no entanto a inclusao desta palavra-chave. 

INPUT — Permite ao utilizador comunicar k maquina dados 
ou strings. Sao permitidas diversas formas, como por exemplo 
INPUT X, Y, Z que permitira tres dados numericos, ou INPUT 
Q$, R$ que pedir& duas strings. Os valores numericos apresenta- 
dos a maquina quando esta pede uma string sao aceites e conver- 
tidos em strings. 

As instrugoes PRINT e INPUT podem ser combinadas, como 
no seguinte exemplo: INPUT “De-me um numero”, N. Esta ins¬ 
trugao imprime no visor a mensagem “De-me um numero?” 
(note que acrescenta o sinal de interrogagSo) e espera que seja 
dada entrada a um valor numerico. Um outro aspecto a notar 
nesta instrugao e a virgula que se segue & string de mensagem; 
certas versOes da BASIC utilizam aqui um ponto e virgula. 

LET — Esta instrugao e opcional 

ON... GOTO — ON... GOSUB — Estas instrugoes transfe- 
rem a execugao para os numeros de linha indicados a seguir a 
GOTO ou GOSUB, conforme o valor da expressao que se segue 
a ON. Por exemplo: 

ON X +1 GOTO 100, 200, 300, 400 

Se X = 0, a execugao e transferida para a linha 100; se X = 1, 
para a linha 200; se X = 2 para a 300, e se X = 3 para a 400. Qual¬ 
quer outro valor de X produzira uma mensagem de erro. 
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REM — Indica “remark” (observagao), sendo apenas um au- 
xiliar para os humanos. Estas linhas sao omitidas pelas maqui- 
nas, pois a BASIC ignora todas as instrugoes REM. 

Fungoes 

ABS(X) — da o valor absoluto de X; ou seja, nunca pode ter 
um valor negativo. 

ATAN(X) — dko angulo em radianos cuja tangente e X. 

ASC(STRING) —*■ da o valor decimal do primeiro caracter da 
string; ou seja, ASC(“?”) da 63. 

CHR$(X) — da o caracter unico equivalente ao valor decimal 
ASCII de X. Por exemplo, CHR$(65) da A. 

COS(X) — da o co-seno de X, que deve ser indicado a maqui- 
na em radianos. 

DEF FNX(Y) = (exp) — define uma fungao X designada por 
uma letra unica. Permite a criagao de qualquer fungao, por 
exemplo DEF FNA(Y) = 3.14*Yt2. Y designa qualquer variavel, 
podendo de facto ser substituida pelo valor que se quiser ao cha- 
mar a fungao. Por exemplo: 

100 LET G = FNA(23) 

dara a G o valor 1661,06 dado que Y foi subsituida por 23. Se na 
expressao existir uma variavel diferente de Y, e tornado em conta 
o valor actual dessa variavel ao avaiiar a fungao. 

EXP(X) — da a base de logaritmos naturais eievados a poten- 
cia X. O inverso desta fungao e LOG(X). 

INT(X) — da o maior numero inteiro inferior a X, isto e, ar- 
redonda para menos. 

LEFT$(X$,N) da uma string de caracteres com um com- 
primento N, comegando pelo que se encontra mais a fesquerda 
em X$. 

RIGHT$(X$,N) — como acima, a partir do caracter mais a 
direita em X$. 

MID$(X$,S,T) — extrai de X$ uma string de caracteres com o 
comprimento T, comegando pelo que se encontra na posigao S. 

LEN(X$) — da o numero de caracteres que se encontram em 
X$, incluindo quaisquer espagos. 

LOGx(X) — da o logaritmo natural de X. 

RND e RND(O) — da um numero aleatorio entre 0 e 1. 


SGN(X) — da o sinal de X; isto e, -4 produz -1; + 4 produz 1. 

SIN(X) — da o seno do angulo X indicado em radianos. 

SQR(X) — da a raiz quadrada de X. 

STR$(X) — traduz uma variavel numerica numa string. 

VAL(X$) — e o oposto: da sob a forma de uma constante nu¬ 
merica o primeiro valor encontrado em X$. 

TAB(X) — desloca a posigao de impressao para a coluna X 
dentro da mesma linha. Pode ser uma expressao. Note que no 
caso de TAB obrigar a passar para a linha seguinte, ou a seguir a 
uma outra instrugao PRINT, se torna necessario o emprego do 
separador V a seguir a TAB. Por exemplo, PRINT TAB (16); 

TAN(X) — da a tangente do angulo X indicado em radianos. 


Notas sobre os graficos 

Nas listagens que se seguem nao foram incluidos quaisquer 
graficos. Certamente muitos criticarao este facto, mas pego aos 
leitores que compreendam que todos os graficos dependem bas- 
tante da maquina que se usa. A inclusao de gr&ficos restringiria 
portanto os possiveis leitores aqueles que possuem apenas uma 
determinada maquina, enquanto que a omiss&o dos graficos per¬ 
mite o uso destas listagens pelos possuidores de qualquer maqui¬ 
na. Nestas condigoes, e sempre que possivel, foram omitidas as 
instrugoes que variam de maquina para maquina e tentou-se 
manter as listagens bastante simples. 

Nao ha duvidas no entanto que quase todos os programas 
apresentados seriam melhorados incorporando graficos ou algu- 
mas instrugoes especiais. Devo deixar no entanto este cuidado ao 
leitor interessado. E impossivel num unico livro dar sugestoes ou 
solugoes para todos os casos. 

As poucas instrugoes variaveis em fungao da maquina que 
aqui se utilizam sao restringidas a variedade CHR$(X), onde o X 
designa certas fungdes. Segue-se uma lista destas; o leitor devera 
simplesmente substitui-las pelo X que executa a mesma fungao 
na sua m&quina. Se nao dispuser de uma fungao especial para o 
efeito, omita-a, o que em geral nao tera efeitos no programa. 

CHR$(5) Desliga o cursor 

CHR$(6) Apaga o final da linha 
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CHR$(7) Som 

CHR$(8) Cursor a esquerda 

CHR$(9) Cursor a direita 

CHR$( 10) Cursor em baixo 

CHR$(11) Cursor em cima 

CHR$(12) Mudar pagina 

CHR$(13) Retorno ao inicio de linha 

CHR$(14) “Scrolling” (rolamento) da imagem 

CHR$(15) Nao aplicavel 

CHR$(16) “Home” (Envio do cursor para o canto superior 
esquerdo) 

CHR$(17) Leitor de fita ligado 
CHR$(18) “Punch” ligado 
CHR$(19) Leitor de fita desligado 
CHR$(20) “Punch” desligado 
CHR$(21) Cursor ligado 
CHR$(22) Apagar... 

CHR$(23) Nao aplicavel 
CHR$(24) Nao aplicavel 
CHR$(25) Inicializar o terminal 
CHR$(26) Modo pagina 
CHR$(27) Cursor normal 
CHR$(28) Cursor intermitente 
CHR$(29) Inverter visor 


string como, por exemplo, “ABCDE”. Se for executado um re¬ 
torno de linha neste momento e impresso a string “A BC DE”, 
a letra C parecer& mover-se para a esquerda. E esta a base de 
muitos programas ditos “graficos”, incluindo os executados em 
comput adores muito vendidos. 

Em modo “scrolling”, quando o cursor atinge o final da linha 
inferior todo o visor parece rolar para cima uma linha, apresen- 
tando uma linha nova na parte inferior, onde o cursor continua 
a imprimir. O efeito disto e semelhante ao de um rolo de papel 
saindo continuamente de uma impressora. 

O interesse do scrolling depende bastante da velocidade do ter¬ 
minal. Se for muito lento (digamos 300 baud ou menos), a velo¬ 
cidade e quase tao aceitavel como a de leitura normal. Se for 
muito rapido (por exemplo mais de 1200 baud) o visor enche-se 
num ou dois segundos, depois do que o programa para a fim de 
permitir a leitura do que foi escrito. Entre estes extremos, o efei¬ 
to de rolamento dos caracteres pode ser bastante irritante. 


Rolamento do visor 

Em modo pagina, quando o cursor atinge o final da ultima li¬ 
nha continua a imprimir no inicio da linha superior. Note que 
(pelo menos na minha maquina) nao limpa automaticamente o 
visor; e necessario utilizar uma instrugao nesse sentido, o que 
constitui uma caracteristica bastante util no caso de se pretender 
apenas alterar alguns caracteres aqui e ali. O mesmo acontece 
com a ordem “Home”, que apenas reenvia o cursor para a posii- 
gao no cimo a esquerda sem limpar o visor. 

O paginamento e util para graficos autorrxaticos, isto e, para 
mover caracteres. Isto e feito por exemplo no programa “Puzz¬ 
le”. Com o cursor desligado e o terminal no modo pagina, os ca¬ 
racteres parecem desligar no visor. Isto e feito imprimindo uma 
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I 


SOMA-DIFERENCA (0,5 K) 

Este programa, o mais simples do livro, podera ser executado 
facilmente em qualquer computador que utiliza a linguagem BA¬ 
SIC, podendo ser traduzido facilmente para codigo-m&quina no 
caso dos pequenos computadores que a nao utilizem. Pode ate 
ser traduzido para maquinas de calcular programaveis, desde 
que se omita o texto. 

O jogo e evidentemente pensado apenas para criangas. E ex- 
tremamente simples, mas se nao se conhece o segredo pode ser 
bastante frustrante encontrar os dois numeros escondidos. 

Para programadores principiantes, pode ser interessante ob- 
servar que uma instru$ao PRINT pode incluir calculo, como 
acontece nas linhas 110,120 e 290. Nao ha necessidade de fazer o 
calculo antes de imprimir a resposta, e o metodo apresentado 
pode poupar espa?o de programa e de variaveis. Como e obvio, 
se se quiser fazer mais alguma coisa ao result ado de um calculo, 
e melhor fazer o c&lculo anteriormente. 

Note ainda que o programa nao tern saida, continuando per- 
manentemente a executar o loop. O programa so desaparece 
quando se desliga a maquina ou se utiliza uma ordem. Se quiser, 
pode reescrever a linha 300 a fim de perguntar ao utilizador se 
quer jogar de novo: 

300 PRINT: PRINT “Carregue em 1 para jogar de novo”; 

310 INPUT A 

320 IF A=1 THEN 10 

330 END 

Se puder utilizar strings e linhas com varias instru^oes, pode 
reduzir tudo isto a uma linica linha: 
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300 PRINT: INPUT " Jogar de novo (s/n)?”, A$: 

IF A$ = “s” THEN 10 

Veremos muitos exemplos semelhantes a isto neste livro. 

As linhas 30 e 40 sao interessantes. A linha 120 exige que X se- 
ja sempre maior do que Y, mas no entanto as linhas 10 e 20 nao 
garantem isto quando produzem os dois numeros secretos. Por- 
tanto, a linha 30 verifica qual e maior e, em caso de necessidade, 
a linha 40 troca os numeros, colocando q maior em X e o menor 
em Y. 


Lista de variaveis 

X primeiro numero secreto 

Y segundo mimero secreto 

Z armazenamento tempor&rio 

XI adivinha do primeiro numero pelo utilizador 

Y1 adivinha o segundo numero pelo utilizador 

N contagem do numero de problemas colocados 

R contagem do numero de problemas resolvidos 


Listagem do Programa 

0010 X = INT (RND (0)*20) + 1 
0020 Y = INT (RND (0)*20) + 1 
0030 IF X> = Y THEN 50 
0040 Z = X:X = Y:Y -Z 
0050 N = N+ 1 

0100 PRINT “ESTOU A PENSAR EM DOIS NUMEROS 
ENTRE 1 E 20” 

0110 PRINT “A SOMA DE AMBOS E”; X + Y 

0120 PRINT “A DIFEREN£A ENTRE AMBOS E”; X-Y 

0130 PRINT “QUAIS SAO OS NUMEROS?” 

0140 INPUT X1:INPUTY1 
0150 IF XlOX THEN 200 
0160 IF YlOY THEN 200 
0170 PRINT “CERTO!” 

0180 R = R+ 1 
0190 GOTO 290 
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0200 IF XlOY THEN 250 
0210 Y1=X THEN 170 

0250 PRINT “6 PENA —ESTAERRADO” 

0260 PRINT “OS NUMEROS ERAM ”;X;“ E ”;Y 
0290 PRINT “ESTA A PONTUAR R*100/N:“%” 

0300 PRINT :PRINT “VAMOS JOGAR OUTRA VEZ!”: 
GOTO 10 


VAMOS JOGAR OUTRA VEZ! 

ESTOU A PENSAR EM DOIS NUMEROS ENTRE 1 E 20 
A SOMA DE AMBOS E 10 
A DIFERENQA ENTRE AMBOS E 6 


Urn exemplo de execu^ao 

ESTOU A PENSAR EM DOIS NUMEROS ENTRE 1 E 20 
A SOMA DE AMBOS E 13 
A DIFERENQA ENTRE AMBOS E 5 
QUAIS SAO OS NUMEROS? 

8 

5 

E PENA — ESTA ERRADO 
OS NUMEROS ERAM 9 E 4 
ESTA A PONTUAR 0% 

VAMOS JOGAR OUTRA VEZ! 

ESTOU A PENSAR EM DOIS NUMEROS ENTRE 1 E 20 
A SOMA DE AMBOS E 10 
A DIFERENgA ENTRE AMBOS E 2 
QUAIS SAO OS NUMEROS? 

6 
4 

CERTO! 

ESTA A PONTUAR 50% 

VAMOS JOGAR OUTRA VEZ? 

ESTOU A PENSAR EM DOIS NUMEROS ENTRE 1 E 20 
A SOMA DE AMBOS E 20 
A DIFERENgA ENTRE AMBOS E 2 
QUAIS SAO OS NUMEROS? 

11 

9 

CERTO! 

ESTA a PONTUAR 66.6666666% 
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II 


JOGO DE EQUILIBRIO (1,2 K) 

Se bem que este jogo simples e agradavel seja tambem apro- 
priado a qualquer computador ou calculadora programavel, ja 
nao e tio simples de jogar, sendo de esperar que os aprendizes 
percam facilmente o equilibrio — alias, tal como nas situagoes 
reais. As criangas, em particular, adoram este jogo. 

Quando sentir que joga bem, acrescente um atraso de tempo 
no loop de reacgao: 

210 W = W-D:D = P:X NEXT M 
A oscila$ao (W) e entao afectada pelo atraso de reacgao (D), e 
a reacgao actual (P) e guardada para a proxima vez que o loop e 
executado. A reac^ao so tern portanto efeito com um movimento 
de atraso — o que bastara para Ihe estragar o jogo... 

A linha 130 e particularmente interessante. A fun^ao RND da 
um numero aleatbrio na gama 0 a 0,99999, e o efeito da elevagao 
deste numero ao quadrado consiste em levar a maior parte dos 
numeros a ficarem na metade inferior dessa gama, so alguns 
conseguindo atingir a parte superior desta. Multiplicand© por 8 e 
subtraindo 4 leva-se a instrugao a dar um numero aleatorio na 
gama - 3 a +3, o que permite obter uma oscilagao para a es- 
querda ou para a direita. 

Lista de variaveis 

Q$ String de entrada 

A Numero de movimentos pretendidos 

T Posi$ao de tabula^ao 

M Movimento actual 

W Oscilagao para a esquerda ou direita 

P Ajustamento do jogador 
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Listagem do programa 


0010 PRINT TAB (10); “JOGO DE EQUILIBRIO” 

0020 PRINT TAB (10); “===========” 

0030 PRINT: PRINT 

0040 INPUT “PRETENDEINSTRUQOES?”, Q$ 

0050 IF LEFT$(Q$,1) = “s” THEN GOSUB 9000 
0060 PRINT “EM QUANTOS MOVIMENTOS PENSA 
QUE CONSEGUE” 

0070 INPUT 1 ‘EQUILIBRAR O TACO DE BILHAR?”, A 
0080 REM — Oscilar o taco 

0090 T= 10: FOR X = 1 TO 10: PRINT TAB (T); “*”: 
NEXT X 

0100 REM_Loop ***************** 

0110 FOR M = 1 TO A 

0120 IF W<0 THEN W = W-.5 

0130 IF W = 0 THEN X = RND: W = INT (X*X*8-4) 

0140 IF W>0 THEN W = W + .5 

0150 T = T + W: REM — Aumentar a oscilagao 

0160 IF T< = 0 THEN 500 

0170 IF T> = 20 THEN 500 

0180 PRINT TAB (T); “*”: TAB (30); 

0190 INPUT P:P = P-5 
0210 W = W-P: NEXT M 

0220 PRINT: PRINT “PARABENS — CONSEGUIU!” 

0230 PRINT: INPUT “Joga outra vez (s/n)?”, Q$ 

0240 IF Q$ = ”s” THEN 60 
0250 END 

0500 PRINT:PRINT “OOOH! DEIXOU-O CAIR!”: GO 
TO 230 

9000 PRINT “NESTE JOGO TEM DE EQUILIBRAR UM 
TACO DE BILHAR”; 

9010 PRINT “NA TESTA. SE COMEQAR A OSCILAR 
PARA A ESQUERDA”; 

9020 PRINT “DEVE TAMBEM IR PARA A ESQUERDA 
A FIM DE COLOCAR-SE”; 

9030 PRINT “SOB O SEU CENTRO DE GRAVIDADE. SE 
FOR PARA A”; 

9040 PRINT “DIREITA, DEVE IR PARA A DIREITA.’; 
9050 PRINT “USE AS TECLAS DE N0MEROS. O 5 E A 


21 



CENTRAL”; 

9060 PRINT ”1-4 PARA A ESQUERDA E 6-9 PARA A DI 
REITA.” 

9080 INPUT” CARREGUE EM RETURN ”, Q$ 

9090 RETURN 


Exemplo de execu?ao 
PRETENDE INSTRUgOES? n 

EM QUANTOS MOVIMENTOS PENSA QUE CONSEGUE 
EQUILIBRAR O TACO DE BILHAR? 30 
PARABENS — CONSEGUIU! 

JOGA OUTRA VEZ (s/n)? n 
READY 


III 

JOGO DE MOEDAS (2 K) 

SSo incluidas instrupoes na listagem, mas estas podem ser 
omitidas se assim se quiser ou se o programa nao couber na ma- 
quina. O mesmo se aplica a qualquer outro programa apresenta- 
do neste livro — se for necessario poupar porque o tamanho da 
memoria e reduzido, retire antes do mais as instru^oes (pode 
mante-las num pequeno caderno de notas, ou consultar este vo¬ 
lume). 

Se ainda nao consegue fazer caber o programa na maquina, 
retire-lhe todas as instru?oes REM, que apenas servem para tor- 
nar a listagem mais facil de compreender. O computador nao ne- 
cessita delas. Se se habituar a faze-lo, no entanto, deve ter cuida- 
do; verifique se nao existe qualquer outra linha onde se encontre 
uma instru<;So que envie para a linha que deseja retirar. Tentei 
evitar saltos para as linhas com instrugoes REM, mas dada a na- 
tureza humana, talvez tenha esquecido alguma. 

Outro modo de poupar memoria consiste em utilizar linhas de 
instrueoes multiplas, se a maquina o permitir. Por exemplo, as 
linhas 100 e 110 podem ser juntas numa so, como de resto acon- 
tece com as linhas 120 e130: 

100 PRINT : PRINT “POR FAVOR ESCREVA OS NO- 
MES”:P = 1 

120 INPUT P$(P): IF P$(P) = THEN 150 

Nao juntei linhas na listagem porque torna esta mais dificil de 

seguir. , lS 

A linha 40 contem um truque muito util. Em resposta a iinna 
30, o utilizador pode escrever “NAO” ou “SIM”, ou apenas 
“N” ou “S”. A linha 40 verifica apenas a primeira letra da en- 
trada e actua em fungao dela, pelo que mesmo “SIM, POR FA¬ 
VOR” sera aceite. O programa nao e parado por uma entrada 
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deste tipo, podendo o utilizador nao se preocupar com o assun- 
to. 

A linha 130 evita a necessidade de dar entrada ao numero de 
jogadores previamente — os nomes sao simplesmente escritos 
com a extensao que se quiser e, quando tiverem sido completa- 
mente escritos, um novo toque na tecla RETURN faz a execugao 
avangar. 


Lista de variaveis 

Q$ Entrada de respostas 

P Numero total de jogadores 

P$(X) Nomes dos jogadores 

C(X) “Array” contendo a quantia pertencente a cada jo- 
gador 

P(X) ‘ ‘Array’ ’ contendo a aposta de cada jogador 

X Variavel geral de contagem 

C Total dedinheiro 

H Numero de caras 

T Numero de coroas 


Listagem do programa 

0010 PRINT “JOGO DE MOEDAS” 

0020 PRINT “-” 

0030 INPUT “DESEJA INSTRUQOES?”, Q$ 

0040 IF LEFT$(Q$,1) = “N” THEN 100 

0050 PRINT “DE CADA VEZ, O COMPUTADOR LAN 
QA 16 MOEDAS.” 

0060 PRINT “OS JOGADORES APOSTAM NO NUMERO 
DE CARAS QUE” 

0070 PRINT “SAIRAO. CADA UM APOSTA $1 E A PES 
SOAQUE” 

0080 PRINT “ACERTAR RECEBE TUDO. SE NINGUEM 
ACERTA,O” 

0090 PRINT “DINHEIRO PASSA PARA A VEZ SEGUIN 
TE.” 

0100 PRINT:PRINT “POR FAVOR ESCREVA OS NO 
MES” 


0110 P = 1 
0120 INPUT P$(P) 

0130 IF P$(P) = “” THEN 150 

0140 C(P) = 20:P = P + l:GOTO 120 

0150 PRINT “CADA JOGADOR COMEQA COM 20 $” 

0160 P = P-1 

0170 FORX= 1 TO P 

0180 PRINT P$(X);:INPUT A SUA ADIVINHA”, 

P(X) 

0190 IFX=1 THEN240 
0200 FOR Y = 1 TO X-l 
0210 IF P(X)OP(Y) THEN 230 

0220 PRINT “ESSA APOSTA JA FOIFEITA”: GOTO 180 
0230 NEXTY 

0240 (X) = C(X)-1:C = C= 1:NEXTX 
0250 PRINT 

0260 PRINT “VAMOS LANQAR...” 

0270 PRINT :H = 0:T = 0 

0280 FORX= 1 TO 16 

0290 IF RND(0) . 5 THEN 310 

0300 H = H + 1:PRINT “Ca”;:GOTO 320 

0310 T = T+ 1:PRINT “Co”; 

0320 NEXTX 

0330 REM — Verificar apostas 
0340 FOR X = 1 TO P 
0350 IF P(X)OH THEN 400 
0355 PRINT :PRINT 

0360 PRINT P$(X); “GANHA! POSSUI AGORA”; 

0370 C(X) = C(X) + C:C = 0 
0380 PRINT “$”;C(X) 

0390 GOTO 420 
0400 NEXT X:PRINT 

0410 PRINT H; “CARAS — NINGUEM GANHA. O DI 
NHEIRO NA MESA” 

0415 PRINT “E AGORA $”;C 

0420 PRINT “DINHEIRO RESTANTE — ” 

0430 FORX=l TOP 

0440 PRINT P$(X): “ — ”:C(X) 

0450 NEXT M 
0460 FORX=lTOP 
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0470 IF C(X) O THEN 500 

0480 PRINT “TERMINOU O JOGO. OS JOGADORES 
NAO TEM DINHEIRO” 

0490 END 

0500 NEXT X:GOTO 170 


Exemplo de execu^ao 

Deseja instru^oes? N 
Por favor escreva os nomes 

? tomAs 

? JO AO 
? JOSE 

CADA JOGADOR COMESA COM 20 $ 

TOMAS — A SUA ADIVINHA? 8 
JOAO — A SUA ADIVINHA? 7 
JOSE — A SUA ADIVINHA? 6 
VAMOS LANgAR... 

Ca Ca Ca Ca Co Ca Co Co Co Ca Ca Ca Ca Ca Co Co 
10 CARAS — NINGUEM GANHA. O DINHEIRO NA MESA 
E AGORA $3 

DINHEIRO RESTANTE — 

TOMAS — 19 
JOAO — 19 
JOSE—19 

TOMAS — A SUA ADIVINHA? 9 
JOAO — A SUA ADIVINHA? 8 
JOSE — A SUA ADIVINHA? 6 
VAMOS LANgAR... 

Co Ca Ca Ca Co Co Ca Co Co Co Ca Ca Ca Ca Ca Co 
TOMAS GANHA! POSSUI AGORA $24 
DINHEIRO RESTANTE — 

TOMAS — 24 
JOAO — 18 
JOSE — 18 

TOMAS — A SUA ADIVINHA? 7 
JOAO — A SUA ADIVINHA? 8 
JOSE — A SUA ADIVINHA? 6 
VAMOS LANgAR... 
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IV 


O SR. SILVA DIZ (3,5 K) 

Neste jogo, o computador imprime um array. Mantem-no no 
visor durante alguns segundos e em seguida limpa-o antes de lhe 
pedir que repita a sequencia. E portanto necessario ler o array 
tendo isto em conta. 

O jogo requer evidentemente que este array tenha uma dimen- 
sao razoavel. Como esta BASIC definira normalmente um array 
ate 10 elementos, e os utilizadores excederao facilmente isto ao 
testarem a sua memoria, dimensionamos na linha 120 o array co- 
mo tendo 30 elementos. 

A linha 220 torna-se necessaria para limpar o visor usando es¬ 
ta BASIC; os utilizadores usarao o correspondente nos seus sis- 
temas. 


Lista de variaveis 

D Grau de dificuldade; comprimento do array no prin- 
cipio 

D1 Grau de dificuldade; maior digito usado 

X contador geral 

A$(X) Array a memorizar 
A Entrada digital do utilizador 

H Maior pontuacao ate ao momento 


Listagem do programa 
0080 DIM A$(25), B$(25) 

0090 PRINT CHR$(25); CHR$(25); CHR$(0); CHR$(0); 
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0100 PRINT TAB (20); “O SR. SILVA DIZ” 

0110 PRINT TAB (20); “= = = = = = = =” 

0120 PRINT 

0130 INPUT “GRAU DE DIFICULDADE? ESCREVA UM 
NUMERO DE 0-9”, D 
0140 PRINT 
0160 D = D + 4 

0170 R = INT (RND(0)*D + 1) 

0180 A$ = A$ 4- CHR$(R + 48) 

0190 FOR X = 1 TO LEN(A$) 

0195 PRINT MID$(A$,X,1);“ 

0196 FOR T = 1 TO 50: NEXT T 
0197 NEXT X 
0200 FOR X = 1 TO 100 
0210 NEXT X 

0220 PRINT CHR$(25); CHR$(22); CHR$(0) 

0230 INPUT “REPITA A SEQUfiNCIA”, B$ 

0240 IF A$-B$ THEN PRINT “CERTO!”:GOTO 170 
0250 PRINT: PRINT 

0260 PRINT ‘ ‘RECORDOU”;:L = LEN(A$)-1 
0270 PRINT L; “DIGITOS CORRECTAMENTE, O QUE E” 
0280 IF L>L1 THEN 300 
0290 IF L = LI THEN 310 
0295 PRINT “MUITO BOM!”: GOTO 320 
0300 PRINT “A MELHOR PONTUAQAO DE HO 
JE!!!”:L1 = L:GOTO 320 

0310 PRINT “IGUAL A MELHOR PONTUAQAO ANTE 
RIOR!”:GOTO 320 
0320 PRINT : PRINT:PRINT 
0330 INPUT “OUTRO JOGO”, A$ 

0340 IF LEFT$(A$,1) = “N” THEN END 
0350 A$ = “” 

0360 GOTO 120 


POR FAVOR REPITA A SEQUENCIA 
4/1/3/2 /CERTO! 

41324 

POR FAVOR REPITA A SEQUENCIA 
4/1 /3/2/4 /CERTO! 

413241 

POR FAVOR REPITA A SEQUfiNCIA 
4/1 /3 /2 /4/1 /CERTO! 

4132413 

POR FAVOR REPITA A SEQUENCIA 
4/1/3/2/4/1/3 /CERTO! 

41324132 

POR FAVOR REPITA A SEQUENCIA 
4 /I /3 /2 /4 /I /3 /2 /CERTO! 

413241322 

POR FAVOR REPITA A SEQUfiNCIA 
4 /I /3 /2 /4 /I /3 /2 /2 /CERTO! 

4132413221 

POR FAVOR REPITA A SEQUfiNCIA 
4 /I /3 /2 /4 /I /3 /2 /2 /I /CERTO! 

41 3241 322 1 1 

POR FAVOR REPITA A SEQUENCIA 
4/1 /3 /2/4 /I /3 /2 /2 /I /I /CERTO! 

413941322114 

POR FAVOR REPITA A SEQUfiNCIA 
4 /I /3 /2 /4 /I /3 /2 /2 /I /I /4 /CERTO! 

4132413221143 
POR FAVOR REPITA A SEQUfiNCIA 
4 /I /3 /2 /4 /I /3 /2 /2 /I /I /3 ***** ERRO ***** 
RECORDOU 12 DIGITOS CORRECTAMENTE, O QUE E 
A MELHOR PONTUAQAO DE HOJE!!! 

OUTRO JOGO? 

N 

READY 


Exemplo de execu^ao 


GRAU DE DIFICULDADE? ESCREVA UM NUMERO 
DE 0-9? 0 
4132 
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V 

O JOGO DE KIM (2K) 

Este jogo baseia-se livremente no livro de Rudyard Kipling. 
Voce dispde de trinta segundos para memorizar um conjunto de 
caracteres que (como em “O Sr. Silva diz”) sao impressos no vi¬ 
sor do computador. Nao interessa se os repete ou nao pela or- 
dem correcta, mas como e obvio nao pode indicar o mesmo mais 
do que uma vez a menos que tenha aparecido tambem mais de 
uma vez. 

A diferenga essencial entre “O Sr. Silva diz” e o “Jogo de 
Kim” e que, neste ultimo caso, o utilizador encontra um maior 
numero de elementos para memorizar de cada vez, dispondo por 
outro lado de mais tempo para o fazer. A qualidade do jogador & 
tambem diferente; enquanto “O Sr. Silva diz” nao necessita de 
uma mente muito intelectual, o “Jogo de Kim” e mais adulto, 
encorajando o utilizador a classificar os elementos e a junta-los 
mentalmente em grupos. Portanto, se bem que os dois jogos se- 
jam superficialmente semelhantes, requerem metodos completa- 
mente diferentes de resposta da parte do jogador. 

Nesta versao sao usados ate 60 elementos; este grande numero 
pode ser usado por jogadores peritos devido a possibhidade de 
agrupamento dos elementos ja mencionada — o jogador'junta- 
~os em digitos, letras maiusculas, letras minusculas, etc., talvez 
ainda subdividindo-as. Ocorrem necessariamente duplicates de 
elementos, tornando a solugao um pouco mais simples.: 

O corag&o do programa encontra-se na$ linhas 220 a 230. Sao 
produzidos numeros aleatorios indicados sob a forma de carac¬ 
teres ASCII, e portanto passiveis de serem apresentados no vi¬ 
sor. O valor mais pequeno e 33, corre*pondendo ao caracter 
“!”, e o maior e 126, equivalente a incluindo entre ambos 
todos os outros caracteres. Se os leitores nao estao familiari- 


zados com es*e codigo ASCTI, podem adquirir uma obra que o 
apresente e estuda-lo. 

Certos teclados muito usado* nao possuem tecldo ^orrespon- 
dentes a todos os simbolot ** como o utilizador deve poder escre- 
ver neste iogo qualquer do* simbolos que v6 no visor nao pode 
permitir ao computador que imprima esses simbolos que nao po¬ 
de escrever em resposta. Este problema e resolvido nas linhas 
226 e 227, que omit cm o apostrofo invertido O e o sinal comer- 
cial @ respectivamente. Omita estas i; nhas, altere-se ou acres- 
cente-a* conforme for necessario para a sua maquina. 

A liana 260 serve simplesmente para perder tempo. Obter o se- 
no de um Eadiero e uma das fungoes mais lentas realizada pelo 
computador, dado que yquer o uso de valores logaritmicos. Se a 
BASIC do sen computador nao autoriza fun?oes trigonometri- 
cas, altere simi esmcnte esta linha de modo a que o computador 
conte ate um mlmero muito grande, determinado por experien- 

cias. _ . 

A linha 280 e um modo allcxnativo de limpar o visor: lmpri- 
mindo 16 huha. em branco. Se a sua maquina possui uma instru- 
gao CLS, use-a. Na linha 290 e permitido ao utilizador indicar 
um numero de e^mentos superior em 25% aos elementos de fac¬ 
to apresentados para memorizagao. 

Os caracteres apresentados foram produzidos e armazenados 
como valore* numericos, mas o utilizador e agora forgado a res¬ 
ponder com i s caracteres propriamente ditos; a ordem para 
substituir os caracteres pelo seu valor ASCII equivalente e ASC, 
que se pode ver na linha 320. As linhas que se seguem comparam 
cada valor ASCII com cada elemento do array, permitindo a es- 
crita dos caracteres por qualquer ordem. Ao serem comparados, 
os elementos correspundentes do array sao passados ao valor ze¬ 
ro pela linha 340, o que obriga a escrevei ’ duas vezes os caracte¬ 
res duplicados. 

Finalmente, na linha 410 o computador imprime os caracteres 
que faltam, percorrendo muito simplesmente o array e impri- 
mindo todos os elementos que nao tern um valor zero. 


Lista de variaveis 

X(60) Array ate 60 elementos 
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N Numero de elementos 

X Contador 

Y Contador 

G Numero de adivinhas 

R Numero de respostas correctas 

W Numero de respostas erradas 


Listagem do programa 
0005 LINE= 32 

0010 PRINT CHR$(25); xCHR$(25); CHR$(5); CHR$(14) 
0020 DIM X(60) 

0030 PRINT “ESTE E O JOGO DE KIM, ADAPTADO DO 
LIVRO DE” 

0040 PRINT “KIPLING. VOCE TEM 30 SEGUNDOS PA 
RAMEMORIZAR” 

0050 PRINT “UM CONJUNTO DE CARACTERES. PO 
DE REPETI-LOS” 

0060 PRINT “POR QUALQUER ORDEM, MAS DEVE 
APRESENTA-LOS” 

0070 PRINT “APENAS O NUMERO DE VEZES QUE 
APARECERAM” 

0080 PRINT “ORIGINALMENTE” 

0090 PRINT 

0100 INPUT “QUANTOS CARACTERES QUER EXPERI 
MENTAR”, N 
0110 IF N< = 60 THEN 130 

0120 PRINT “NAO SEJA TAO AMBICIOSO. O MAXIMO 
E 60”: GOTO 100 

0130 ON INT(N/10+1)GOTO 140, 150, 160,210, 210, 190, 
200 

0140 PRINT “ENTAO! VIVA PERIGOSAMENTE! TEN 
TE 10 OU MAIS!”: GOTO 100 
0150 PRINT “HMMM — TEM MEDO, EH?”: GOTO 210 
0190 PRINT “AVENTUROSO!”:GOTO 210 
0200 PRINT “PERITO, EH?” 

0210 PRINT:PRINT “EIS OS SEUS CARACTERES:” 

0215 PRINT 

0220 FOR Y = 1 TO N 


0225 X(Y) = INT(RND*93 + 33) 

0226 IF X(Y) = 96 THEN 225 

0227 IF X(Y) = 92 THEN 225 

0230 PRINT CHR$(X(Y));“ ”;:NEXT Y: PRINT 

0240 REM — Temporiza?ao 

0245 PRINT 


0250 PRINT “TEM 30 SEGUNDOS...” 

0260 FOR X = 1 TO 90:Y = SIN(X):NEXT X 
0270 REM — Limpar visor e comparar 
0280 PRINT CHR$(25); CHR$(25); CHR$(5); CHR$(14) 
0290 PRINT “TEM”; INT(N + N/4); “HIPOTESES. PA 
RA TERMINAR, PRIMA RETURN” 










RFS ” 

0300 G = 0:R = 0:W = 0 

0310 INPUT T$:IFT$ = “” THEN 360 

0320 FOR Y = 1 TO N:IF ASC(T$) = X(Y) THEN 340 

0330 NEXT Y:W = W+l:GOTO 350 

0340 X(Y) = 0:R = R+ 1 

0350 G = G + 1 :IF G < = INT(N + N/4)THEN 310 
0360 PRINT :PRINT “TEM ”;R;“CERTOS E ”; W; “ER 
RADOS EM ”;G;“HIPOTESES.” 

0380 IF WOO THEN 390 

0385 IFR = N THEN 430 

0390 PRINT :PRINT“FALHOU”; 

0400 FOR Y = 1 TO N:IF X(Y) = 0 THEN 420 
0410 PRINT CHR$(X(Y));“ ”; 

0420 NEXTY:PRINT _ , __ 

0430 PRINT “A SUA PONTUAQAO E ”;(R-W)/N*100 
0440 INPUT “JOGADE NOVO ”,T$ 

0450 IF LEFT$(T$,1) = “S” THEN 90 

0460 PRINT :PRINT “ADEUS. ESPERO QUE TENHA 

GOSTADO.” 

0470 END 
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Exemplo de execu^ao 


QUANTOS CARACTERES QUER EXPERIMENTAR? 5 
ENT AO! VIVA PERIGOSAMENTE! TENTE 10 OU MAIS! 
QUANTOS CARACTERES QUER EXPERIMENT AR? 15 
HMMM — TEM MEDO, EH? 

EIS OS SEUS CARACTERES: 

Ms4_ F9’6kVaYmg2 

TEM 30 SEGUNDOS... 

TEM 18 HIPOTESES. PARA TERMINAR, PRIMA RETURN 
DUAS VEZES. INDIQUE OS CARACTERES 
? 2 
? 4 
? 6 
? a 
? m 

? g 
? s 
? F 
? M 
? = 

? ) 

? 

TEM 9 CERTOS E 2 ERR ADOS EM 11 HIPOTESES. 
FALHOU_9 ’ k VY 
A SUA PONTUAgAO E 46,6666666 
JOGA DE NOVO? N 

ADEUS. ESPERO QUE TENHA GOSTADO. 

READY 


VI 

ALGARISMOS SIGNIFICATIVOS (3,5 K) 

Este programa agradara a qualquer professor ou pai de uma 
crianga que tenha problemas em compreender o valor de cada al¬ 
garismo em fungao do lugar onde se encontra. O exemplo de 
execugao explica tudo, pelo que podemos passar imediatamente 

alistagem. ,, . 

O exercicio requer o armazenamento dos tres digitos de um 
dado numero separadamente, cada um deles com o seu valor to¬ 
tal, isto e, o 2 de 235 deve ter o valor 20. Pode-se produzir tres 
algarismos separados e multiplicar dois deles por 10 ou por 100, 
ou — como se fez aqui — pode-se produzir um numero de tres 
algarismos e dividi-lo. Os leitores poderao experimentar qual o 
metodo mais economico. 

A linha 90 produz o numero entre 100 e 999. Este e dividido 
no algarismo das centenas, o algarismo das dezenas e o das uni- 
dades nas linhas 100 a 112, enquanto as linhas 116 a 120 verifi- 
cam se nao exist em dois iguais. 

O computador apresenta a crianga vinte problemas deste tipo 
e indica em seguida a sua pontuagao. 


Lista de variaveis 


Q$ String de entradas 

P Numeros de problemas 

S Pontuagao 

N Numero de 3 algarismos original 
H Centenas 

T Dezenas 

U Unidades 
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X Contador 

D Algarismo pedido 

A Resposta da crianga 


Listagem do programa 

0010 INPUT “Deseja instrugoes”,Q$ 

0020 Q$ = LEFT$(Q$, 1) 

0030 IF Q$ = “Y” THEN 9000 

0040 REM — Limpar visor 

0050 PRINT CHR$(25); CHR$(25); CHR$(5) 

0060 PRINT :PRINT:PRINT 
0070 PRINT TAB(25); “H.T.U.” 

0080 P = 0:S = 0 

0090 N = INT(RND(0)*899 + 100) 

0095 PRINT CHR$(6); 

0100 H = INT(N/100) 

0110 T = INT((N-H*100)/10) 

0112 U = N—H*100—T*10 

0114 REM — Verificar se nao ha dois algarismos iguais 

0116 IFH = TTHEN90 

0118 IF H = U THEN 90 

0120 IF T = U THEN 90 

0125 PRINT CHR$(22); 

0130 PRINT TAB(25);H;T;U 
0140 REM — Alterar posigao do cursor 
0150 PRINT CHR$(16):FOR X= 1 TO 6:PRINT 
CHR$(10);:NEXT X 
0160 REM — Escolher um algarismo 
0170 X = INT(RND(0)*3) + 1 
0175 PRINT CHR$(22);: REM —Apagar 
0180 PRINT “Qualeo valor de”; 

0190 IF X = 1 THEN PRINT H;:D = H*100:GOTO 220 
0200 IF X = 2 THEN PRINT T;:D = T*10:GOTO 220 
0210 PRINT U;:D = U 
0220 INPUT A 

0230 IF A = D THEN PRINT ‘ ‘ / CERTO! ”: GOTO 300 
0240 PRINT 

0250 PRINT “E pena — vale ”;D;CHR$(11); 


0260 REM — Dar tempo para ler a resposta 
0270 FOR y = 1 TO 6:Z = SIN(Y):NEXT Y 
0280 IF S = 0 THEN 500 
0290 S = S-1: GOTO 500 
0300 S = S+ 1 

0310 P = PP 1:IFP>19 THEN 400 

0320 REM — Mudar cursor, outro numero 

0330 PRINT CHR$(16):PRINT:PRINT:PRINT:PRINT 

0340 GOTO 90 

0400 PRINT “A sua pontuagao foi “;S;” Quer jogar outra vez”; 
0410 INPUT Q$ 

0420 IF LEFT$(Q$,1) = “Y” THEN 50 
0430 PRINT “Adeus. Obrigado por ter jogado.”:END 
0500 REM — Mover cursor, apagar e repetir a pergunta 
0510 PRINT CHR$(ll);CHR$(13);:GOTO 175 
0999 END 

9000 PRINT CHR$(25);CHR$(25);CHR$(14) 

9010 REM — modo scrolling 

9020 PRINT “Isto e muito facil. Vou dar-lhe um numero de ; „ 
9030 PRINT “3 algarismos e perguntar quanto vale um destes. 
9040 PRINT “Por exemplo —” 

9050 PRINT :PRINT TAB (25); “3 4 5” 

9060 PRINT :PRINT “Quanto valeo 3?” 

9070 PRINT “Deve escrever depois a resposta, que neste caso”; 
9080 PRINT “e 300. Se lhe perguntar o valor do 5, a resposta”; 
9090 PRINT “sera 5! O 4 vale 40. ”; 

9100 PRINT “ Ja sabia, nao e verdade?” 

9110 PRINT :PRINT “Carregue em RETURN quando esti 
ver pronto”;: INPUT A$ 

9120 GOTO 50 


Exemplo de execu^ao 

Deseja instrugoes? Y 

Isto e muito facil. Vou dar-lhe um numero de 3 algarismos e 

perguntar quanto vale um deles. Por exemplo — 

345 

Quanto valeo 3? , c 

Deve escrever depois a resposta, que neste caso e 300. Se lhe 
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VII 


FIZZ BUZZ (1,5 K) 

Apresentamos aqui uma adaptagao para computador de um 
iogo popular no qual se diz “fizz” em vez de qualquer multiplo 
de tres “buzz” em vez de um multiplo de 5 e “fizz buzz em vez 
de um numero divisivel por 3 e por 5. Nao necessitamos de um 
array, dado que a sequencia de numeros e respostas e facil de op- 

ter aritmeticamente. ' , . 

A listagem introduz a ideia de uma “flag” — bandeira qu 
tal como a de um guarda de passagem de nivel e levantada quan- 
do estao reunidas certas condigdes. Trata-se de um conceito mui- 
to importante em programagao, e o leitor vira a encontrar mui- 
tos exemplos ainda neste livro. Como e obvio, as condigoes a ter 
em conta aqui sao a possibilidade de cada novo numero da serie 
ser divisivel por (a) 3, (b) 5, ou (c) ambos. Em todos os outros 
casos a “flag” nao sera “levantada”. Ao contrario da bandeira 
do guarda, no entanto, a nossa tera quatro estados possiveis; e 
facil definir cada um destes dando-lhe um valor numenco entre 0 

e 3, ondeO corresponde a estar “baixada”. , 

A serie de numeros comega na linha 60 e e incrementada de ca¬ 
da vez que a execugao passa pela linha 100. A lmha 110 yenfica 
se S e divisivel por 3. A variavel S e primeiramente dividida por 
3, arredondada (pela fungao INTEGER) e em seguida de novo 
multiplicada por 3. Como e obvio, se o resultado tiver o mesmo 
valor que S, este sera um multiplo de 3 e a bandeira e levantada. 
O mesmo acontece na linha seguinte, pelo que a bandeira e le¬ 
vantada (ou nao) antes de se pedir uma entrada ao utilizador. 

Para compreender o que se segue, 6 necessario saber que o va¬ 
lor ou cddigo ASCII de “0” e 48, enquanto que o do 9 e 57. As 
letras maiusculas tem codigos entre 65 e 90, inclusive, pelo que 
no caso de o computador detectar a entrada de uma paia 
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(linha 140) salta para a linha 200. Se o codigo ASCII da entrada 
se encontra entre 58 e 64 inclusive tera sido cometido um erro, 
tal como no caso de o valor ser inferior a 48. Veia as linhas 150 a 
170. 

A linha 180 toma o valor da string de entrada (um numero) e 
atribui-o A variavel V para comparagao ulterior. Em seguida 
verifica-se o estado da flag (linha 185). 

A flag e igualmente observada na linha 200, sendo realizado 
um salto condicionado em fungao do seu valor, de modo a com- 
parar as palavras na entrada com o que deveriam ser. 


Lista de variaveis 


H Maior pontuagao actual 
S Numero 

F Flag 

Q$ Entradas 

V Valor numerico de Q$ 


Listagem do programa 

0010 PRINT TAB (20); “FIZZ-BUZZ” 

0020 PRINT TAB (20); “= = = = = =” 

0030 H = 0 

0040 PRINT :PRINT “Deseja instrugdes?” 

0050 INPUT Q$:IF LEFT$(Q$,1) = “Y” GOSUB 9000 
0060 S = 0 

0100 S = S +1 :F = 0:REM — Baixar Flag 
0110 IF INT(S/3)*3 = S THEN F = 1 
0120 IF INT(S/5)*5 = S DHEN F = F + 2 
0130 INPUT “Indique um numero”, Q$ 

0140 IF ASC(Q$)>64 THEN 200 

0150 IF ASC(Q$K 58 THEN 170 

0160 PRINT “Entrada incorrecta!”:GOTO 130 

0170 IFASC(Q$)<48 THEN 160 

0180 V = VAL(Q$) 

0185 IF F<>0 THEN 500 

0190 IF V = S PRINT “Certo!”:GOTO 100 


0195 GOTO 500 

0200 ON F + 1 GOTO 500,210, 250, 300 

0210 IF Q$ = “FIZZ” PRINT “Certo!”:GOTO 100 

0220 GOTO 500 

0250 IF Q$ = “BUZZ” PRINT “Certo!”:GOTO 100 


0260 GOTO 500 

0300 IF Q$ = “FIZZ BUZZ” PRINT “Certo!”:GOTO 100 

0500 PRINT :PRINT 

0510 PRINT ‘ ‘E pena — devia ter sido ’ ’; 

0520 ON F + 1 GOTO 530, 550,600, 650 
0530 PRINT S:GOTO 700 
0550 PRINT “FIZZ”:GOTO 700 
0600 PRINT “BUZZ”:GOTO 700 
0650 PRINT “FIZZ BUZZ” 

0700 PRINT :PRINT “A sua pontuagao era “;S-1;” o que e 
0710 PRINT :PRINT“bom.”:GOTO 750 
0720 PRINT“amelhordehoje!” 




0730 H = S-1 

0750 PRINT :PRINT “Jogo seguinte — ”:GOTO 40 
9000 PRINT “Escreva os numeros um de cada vez, comegan 


do”; 

9005 PRINT ‘ ‘pelo menor. ”; 

9010 PRINT “Nao se esquega de carregar em RETURN de 

pois ”; , . 

9020 PRINT “de cada um. Mas nao escreva os divisiveis 


por ; 

9030 PRINT “3. Em vez disso, escreva FIZZ. Do mesmo mo 

9040 PRINT “escreva BUZZ em vez dos divisiveis por 5. 

Quando ; . 

9050 PRINT “o numero e divisivel por 3 e por 5, escreva 

9060 PRINT “FIZZ BUZZ. Carregue em RETURN.” 

9100 INPUT Q$:RETURN 


Exemplo de execu^ao 

Deseja instrugoes? N 
Indique um numero? 1 
Certo! 
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Indique um numero? 2 
Certo! 

Indique um numero? 3 
E pena — devia ter sido FIZZ 
A sua pontuagao era 2 o que e a melhor de hoje! 
Jogo seguinte — 

Deseja instrugoes? N 
Indique um numero? 1 
Certo! 

Indique um numero? 2 
Certo! 

Indique um numero? FIZZ 
Certo! 

Indique um numero? 4 
Certo! 

Indique um numero? BUZZ 
Certo! 

Indique um numero? FIZZ 
Certo! 

Indique um numero? 7 
Certo! 

Indique um numero? 8 
Certo! 

Indique um numero? FIZZ 
Certo! 

Indique um numero? BUZZ 
Certo! 

Indique um numero? 11 
Certo! 

Indique um numero? FIZZ 
Certo! 

Indique um numero? 13 
Certo! 

Indique um numero? 14 
Certo! 

Indique um numero? FIZZ BUZZ 
Certo! 

Indique um numero? 16 
Certo! 

Indique um numero? 17 


Certo! 

Indique um numero? FIZZ 
Certo! 

Indique um numero? 19 
Certo! 

Indique um numero? BUZZ 
Certo! 

Indique um numero? 21 

E pena — devia ter sido FIZZ 

A sua pontuagao e 20 o que e a melhor de hoje. 

Jogo seguinte — 

Deseja instrugoes? N 
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VIII 

DISCURSOS (2,5 K) 

Nao ha muito para dizer acerca deste programa bastante sim¬ 
ples. O objectivo consiste em utilizar tres listas de palavras, esco- 
lher ao acaso uma palavra de cada uma delas e j untar as tres nu- 
ma frase (uma string). A ideia parece optima, mas os resultados 
muitas vezes nao tern sentido. Este programa em particular pos 
varios professores a rir, pois obviamente as palavras foram esco- 
lhidas tendo em vista esta profissao. O metodo permite muitas 
adaptagoes; bastara escolher as palavras apropriadas. 

Nao consigo deixar de pensar que os nossos politicos costu- 
mam usar um programa deste genero para fazerem os seus dis- 
cursos... 

A linha 25 define a largura da linha que e impressa no visor. 
Omita-a se quiser. 


Lista de variaveis 

D Numero de frases desejado 

E Actual numero de frase 

A Numero escolhido ao acaso 


Listagem do programa 


0010 PRINT “DISCURSOS” 

0020 PRINT 
0025 LINE = 56 

0030 PRINT “ESTE PROGRAMA IMPRIME FRASES 
MUITO ACEITAVEIS 


0050 PRINT “QUE PODEM SER APROVEITADAS EM 
DISCURSOS. 

0055 PRINT “PODEM-SE USAR ATE 14000.” 


0060 PRINT 

0070 PRINT “QUANDO SURGIR UM ‘7’, ESCREVA O 
NUMERO DE”; 

nnon ddimt «cd aceq ncsKTAnn FSrRF.VA. ‘0’ PARA 


TERMINAR.” 

0100 PRINT 

0110 INPUT D:IFD = 0 THEN END 

0115 FOR E = 1 TO D 

0120 A = INT(RND(0)*30) + 1 

0140 IF A = 1 PRINT “AGRUPAMENTO” 

0145 IF A = 2 PRINT “MODIFICAQAO’ ’ 

0150 IF A = 3 PRINT “AMBIENTE” 

0155 IF A = 4 PRINT “RESPONSABILIDADE” 
0160 IF A = 5 PRINT “PROCESSO” 

0165 IF A = 6 PRINT “CURRICULUM” 

0170 IF A = 7 PRINT “ALGORITMO” 

0175 IF A = 8 PRINT “RESULTADO” 

0180 IF A = 9 PRINT “REFORQO” 

0185 IF A =10 PRINT “AULA” 

0190 IF A= 11 PRINT “RECURSO” 

0200 IF A = 12 PRINT “ESTRUTURA” 

0205 IF A = 13 PRINT “INSTALAQAO” 

0210 IF A =14 PRINT “SITUAQAO” 

0215 IF A = 15 PRINT “APRENDIZADO” 

0220 IF A = 16 PRINT “COMPORTAMENTO’ 
0225 IF A= 17 PRINT “AVALIAQAO” 

0230 IF A= 18 PRINT “RELATORIO” 

0235 IF A =19 PRINT 1 ‘IMPACTO” 

0240 IF A = 20 PRINT 1 ‘DESENVOLVIMENTO’ ’ 
0250 IF A = 21 PRINT “DISSEMINAQAO” 

0255 IF A = 22 PRINT “RECOMENDAQAO” 
0260 IF A = 23 PRINT “AUSENCIA” 

0265 IF A = 24 PRINT “CONGRESSO” 

0270 IF A = 25 PRINT “PARTICIPAQAO” 

0280 IF A = 26 PRINT ‘ ‘ IMPETO” 

0285 IF A = 27 PRINT ‘ ‘TfiCNICA’ ’ 

0290 IF A = 28 PRINT “EXPERIENCA” 
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0295 IFA = 29 PRINT “CONSORCIO” 

0300 IF A = 30 PRINT “DATA” 

1000 PRINT “ 

1010 A = INT(RND(0)*21) + 1 

1020 IF A= 1 PRINT “HUMANISTICO” 

1025 IF A = 2 PRINT “SEQUENCIAL” 

1030' IF A = 3 PRINT “CLASSIFICAVEL” 

1035 IF A = 4 PRINT “SUBSTANTIVO” 

1040 IF A = 5 PRINT “NOMINAL” 

1045 IF A = 6 PRINT “INTEGRADO” 

1050 IF A = 7 PRINT “CRIATIVO” 

1055 IF A = 8 PRINT “MOTIVACIONAL” 

1060 IF A = 9 PRINT “VERTICAL” 

1065 IF A = 10 PRINT “PSICOLOGICO” 

1070 IF A= 11 PRINT “AUTORITARIO” 

1080 IF A = 12 PRINT “OBJECTIVO” 

1085 IF A = 13 PRINT “EXTRA-ASSOCIATIVO” 
1090 IF A = 14 PRINT “CONSULTIVO” 

1100 IF A= 15 PRINT “NORMATIVO” 

1105 IF A = 16 PRINT “COGNITIVO” 

1110 IF A = 17 PRINT “PROJECTIVO” 

1115 IF A= 18 PRINT “ANALITICO” 

1120 IFA=19PRINT“PROGRAMAVEL” 

1125 IF A = 20 PRINT “NORMAL” 

1130 IF A = 21 PRINT “COMPOSTO” 

1500 PRINT “ ”; 

1505 A = INT (RND(0)*23) + 1 
1510 IFA=1 PRINT“BASICO” 

1515 IF A = 2 PRINT “COMPORTAMENTISTA’ ’ 
1520 IF A = 3 PRINT ‘ ‘ORIENTADOR” 

1525 IF A = 4 PRINT “FLEXIVEL” 

1530 IF A = 5 PRINT “DIFERENCIADQ” 

1535 IF A = 6 PRINT “DESCOBERTO” 

1540 IFA = 7PRINT“COMENSURAVEL” 

1545 IF A = 8 PRINT “HOMOGENEO” 

1550 IF A = 9 PRINT “HETEROGENEO” 

1555 IF A = 10 PRINT “MANIPULADOR” 

1560 IF A = 11 PRINT “MODULAR” 

1565 IFA=12PRINT“PEDAGOGICO” 

1570 IF A= 13 PRINT “APROPRIADO” 


46 


1575 IF A = 14 PRINT “1NTRINSECO” 

1580 IF A = 15 PRINT “ILIMITADO” 

1585 IF A = 16 PRINT “PRIORITARIO” 

1590 IFA= 17 PRINT “INFORMATIVO” 
1600 IF A = 18 PRINT “IMPLEMENTAVEL” 
1605 IF A = 19 PRINT “CORRECTO” 

1610 IF A = 20 PRINT “ AVANgADO” 

1615 IF A = 21 PRINT “ POTENCIAL” 

1620 IF A = 22 PRINT “PARTICIPATIVO” 
1625 IFA = 23PRINT“APLICAVEL” 

2000 PRINT :NEXT E:GOTO 60 


Exemplo de execu^ao 

ESTE PROGRAMA IMPRIME FRASES MUITO ACEITA- 
VEIS QUE PODEM SER APROVEITADAS EM DISCUR- 
SOS. PODEM-SE USAR ATE 14000. 

QUANDO SURGIR UM ‘?\ ESCREVA O NUMERO DE 
FRASES DESEJADO. 

ESCREVA ‘0’ PARA TERMINAR. 

REFORgO MOTIVACIONAL PEDAGOGICO 
INSTALAgAO CRIATIVO MODULAR 
RESPONSABILIDADE PROJECTIVO AVANgADO 
DISSEMINAgAO COGNITIVO POTENCIAL 
IMPACTO VERTICAL INTRINSECO 
REFORgO MOTIVACIONAL HETEROGENEO 
CURRICULUM CONSULTIVO PARTICIPATIVO 
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IX 


PUZZLE (2,5 K) 

Muitos leitores ja viram cert ament e pequenos puzzles em plas- 
tico constituidos por um grupo de letras que devem ser colocadas 
por uma dada ordem. Este jogo faz exactamente isso, pelo que 
nao vale a pena perder tempo a descreve-lo. 

Os leitores que estao a aprender a programar devem notar que 
apesar de a area de jogo ser uma matriz de 4 x 4 unidades, o pro- 
grama mostra que nao e necessaria uma matriz para o executar 
num computador. Um array servira igualmente bem. Alias, 
quando pensamos no assunto, verificamos que o conceito de 
uma matriz de computador nao tern de facto sentido dado que o 
espago de memoria tern uma concepgao linear. A BASIC permi- 
te-nos usar matrizes atraves de uma manipulagao inteligente dos 
enderegos das variaveis, mas dai decorre um custo em tempo de 
execugao e em memoria adicional que nem sempre se justifica 
em termos de convenience de programagao. Com efeito, o uso 
de um array em vez de uma matriz e praticamente equivalente na 
aplicacao aqui considerada. 

Um array B$ contem as letras do puzzle, e a linha 110 escolhe 
as letras A-P por uma ordem aleatoria colocando-as numa zona 
de armazenamento temporario T$. As linhas que se seguem veri- 
ficam se a letra ja foi usada anteriormente, colbcando-a em se- 
guida no array. Nestas condipoes, a situapao de partida e com- 
pletamente aleatoria. 

As linhas entre 170 e 230 imprimem o array sob a ; forma de 
uma matriz, deixando um espapo em branco em vez do “P*\ 
Pede-se entao ao utilizador que indique uma entrada, e a apre- 
sentapao de um “X” neste momento provoca o fim do jogo. Em 
seguida o programa verifica se o caracter apresentado e legitimo 
(linha 260) antes de verificar se o movimento e legal (linhas 
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300-340). Depois de cada movimento verifica-se se as letras se 
encontram pela ordem correcta. 

Se puder colocar o seu computador em modo “pagina” e des- 
ligar o cursor, as letras parecerao mover-se sozinhas e o jogo tor- 
nar-se-a mais rapido. Devera trazer o cursor a origem na linha 
160 se o quiser fazer. Trata-se de uma pequena modificapao que 
merece ser introduzida, dado que observar o visor rolando pode 
tornar-se cansativo para os olhos ao fim de algum tempo. 


Lista de variaveis 

B$(X) Array de letras misturadas 

A$ String de resposta 

M Numero de movimentos 

T$ String de transference tempor&ria 

X Variavel de contagem 

S Posi?ao do espapo (ou “P”) no array 

I Zona de armazenamento temporario para S; tam- 

bem para uso geral 
J Variavel de contagem 


Listagem do programa 

0010 PRINT TAB(5);‘ < PUZZLE” 

0020 PRINT TAB(5); “-” 

0030 PRINT :PRINT 
0040 DIM B$(16) 

0050 INPUT “Deseja instru 9 oes , ^ A$ 

0060 IF LEFT$(A$,1) = “N n THEN 95 
0070 PRINT “ESTE PROGRAMA E UMA COPIA DOS 
PEQUENOS PUZZLES 

0072 PRINT “DE PALAVRAS QUE JA CONHECE. DE 
VE DISPOR AS M ; 

0074 PRINT “LETRAS PELA ORDEM CORRECTA 
MOVENDO-AS UMA DE 
0076 PRINT “CADA VEZ. A POSIQAO FINAL E 
0078 PRINT “ ABC D” 

0080 PRINT “ EFG H” 
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0082 PRINT “ I J K L” 

0084 PRINT “ M N O” 

0086 PRINT “QUANDO CARREGAR EM RETURN, LE 
VAREI CERCA DE”; 

0088 PRINT “10 SEGUNDOS A CONSTRUIR O PUZZ 
LE...’’. 

0090 INPUT A$ 

0095 M = 0:REM — Definir concludes iniciais 
0100 FORI= 1 TO 16 
0105 PRINT CHR$(25); 

0110 T$ = CHR$(INT(RND* 16 + 65)) 

0120 FOR J = 1 TO I 
0130 IF B$(J) = T$ THEN 110 
0140 NEXT J 
0150 B$(I) = T$ 

0155 IF T$ = “p” S = I 
0160 NEXT I 

0165 REM — Imprimir matriz 

0170 X= l:FORD = 1 TO 3:PRINT:NEXT D 

0180 FOR I = J TO 4:PRINT TAB(10); 

0190 FOR J = 1 TO 4 

0210 IF B$(X) = “P” THEN PRINT “ GOTO 220 
0215 PRINT B$(X);“ 

0220 X = X+1:NEXTJ: PRINT 

0230 NEXT LPRINT 

0240 INPUT “Letra a mover”,A$ 

0245 IF A$ = “X” THEN 450 
0250 FORX= 1 TO 16 
0260 IF A$ = B$(X) THEN 290 
0270 NEXT X 
0280 PRINT CHR$(11) 

0285 PRINT “ENTRADA INCORRECTA — ”;:GOTO 240 

0290 REM — Verificar legalidade 

0300 IF ABS(S-X) = 4 THEN 360 

0305 IF ABS(S-X)<>1 THEN 350 

0310 IF X/40INT(X/4) THEN 330 

0320 IF S = X + 1 THEN 350 

0330 IF (X— 1)/4<>INT((X— 1)/4) THEN 360 

0340 IF SOX-1 THEN 360 

0350 PRINT CHR$(11); 


0355 PRINT “MOVIMENTOILEGAL — ”;:GOTO 240 
0360 REM — Mover 
0365 M = M+ 1 
0370 B$(X) = “P” 

0380 B$(S) = A$ 

0390 S = X 

0392 FOR U = 1 TO 9 

0393 PRINT CHR$( 11);: NEXT U 

0395 REM — Verificar a solugao 

0400 FOR 1= 1 TO 16 

0410 IF CHR$(I + 64)<>B$(I) THEN 170 

0420 NEXT I 

0430 PRINT 

0440 PRINT “Optimo — resolveu o problema em M;“ 
movimentos.” 

0450 PRINT 

0460 PRINT “Quer jogar novamente?” 

0470 INPUT A$ 

0480 IF LEFT$(A$,1) = “Y” THEN 95 
0490 PRINT 

0500 PRINT “Adeus — e obrigado pelo jogo.” 


Exemplo de execu?ao 

Deseja instru?oes? N 

E A B H 
I F L M 
N D G O 
J C K 

Letra a mover? D 


E A B H 
I F L M 
N GO 
J D C K 

Letra a mover? F 
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X 


E A B H 
I L M 
N F G O 
J D C K 


Letra a mover? I 

E A B H 
I L M 
N F G O 
J D C K 

Letra a mover? E 

A B H 
E I L M 
N F G O 
J D C K 

Letra a mover? A 

A B H 
E I L M 
N F G O 
J D C K 


Letra a mover? B 

A B H 
F T I M 
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EXERCICIO DE ESCRITA (3 K) 

Foram ja feitas muitas tentativas para conceber um teste de es- 
crita capaz de ser realizado por um computador, mas ate agora o 
exito foi limitado. Uma linha de experimentagao bastante pro- 
metedora consiste em gravar uma voz que diz a palavra a escre- 
ver, mas o autor (e nao so) verificou que nao se pode confiar nas 
criangas para manipularem um gravador de fita e simultanea- 
mente concentrarem-se na pronuncia das palavras. Mesmo o 
controlo do gravador pelo computador nao mostrou ser inteira- 
mente satisfatorio devido ao facto de a fita e o computador dei- 
xarem facilmente de estar sincronizados; e o uso de equipamento 
caro ou pouco habitual esta fora de causa. 

Uma das dificuldades de qualquer teste impresso, em vez de 
falado, consiste na necessidade de evitar dar quaisquer pistas ao 
utilizador. Simultaneamente, torna-se necessario dar a este uma 
informagao suficiente quanto a palavra que deve ser escrita. 

E certo que muitas pessoas possuem uma memoria visual que 
se torna muito util ao escrever palavras; isto e, recordam a apa- 
rencia da palavra. Se estas pessoas enfrentam um teste do tipo 
habitual, em que devem escolher uma entre cinco (por exemplo) 
ortografias alternativas, dispoem evidentemente de uma vanta- 
gem relativamente aqueies que nao possuem essa memoria vi¬ 
sual. , 

E improvavel que surja alguma solugao verdadeiramente satis- 
fatoria para este problema ate os computadores serem tao bara- 
tos que possamos ter vocabularios muito extensos armazenados 
na maquina mais ou menos permanentemente — e mesmo entao 
havera problemas no caso de dialectos regionais. 

Uma outra solugao possivel consistiria na programagao de 
texto, usando o metodo dos fonemas no qual o texto e recons- 
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truido em vez de propriamente guardado em memoria, mas isto 
requer um hardware especial. Pior ainda, a eliminagao de in- 
compreensoes provocadas pela voz um tanto metalica nao e facil 
de conseguir quando sao ditas palavras isoladas em vez de frases 
completas. 

O metodo usado neste programa, portanto, nao e de modo al- 
gum perfeito, mas e talvez o melhor disponivel com meios sim¬ 
ples. Sao mostrados ao utilizador quatro modos diferentes de es- 
crever uma mesma palavra, qualquer deles podendo estar correc- 
to. Pode tambem acontecer que nenhum o esteja; esta ultima 
possibilidade e importante e da um maior interesse ao teste. Per- 
mite ainda a pessoa conceber a lista de palavras de modo a lan- 
gar pistas erradas. 

O programa e simples, mas ilustra pela primeira vez neste livro 
o uso de instrugoes DATA — linha 1000 ate ao fim. O computa- 
dor nada faz quando e se encontrar estas linhas, so as conside- 
rando quando encontra uma instrugao READ como a da linha 
130. A instrugao READ A$ considera o elemento seguinte das 
instrugdes DATA, atribui-o a string A$, e simultaneamente alte¬ 
ra um “ponteiro” (pointer ) interno que passa a designar o ele¬ 
mento seguinte, que sera lido pela proxima instrugao READ. 

Os utilizadores podem facilmente conceber os seus proprios 
testes de escrita alterando estas instrugoes DATA. Se o leitor re¬ 
solver faze-lo, note que cada conjunto de quatro palavras deve 
sempre conter uma quinta, que iitdica a escrita correcta ao com- 
putador. Esta palavra nao e necessariamente apresentada ao uti¬ 
lizador, mas serve a maquina para verificar a correcgao da res- 
posta. 

O teste e apresentado aqui na sua versao original, em ingles, 
nao sendo dificil substituir as palavras por outras da nossa lin¬ 
gua. Tal como esta, porem, pode tambem set util a algum estu- 
dante de ingles... 

Lista de variaveis 

A$ String a transferir para o visor; tambem resposta do 
utilizador. 

B$ String contendo a escrita correcta. 

S Pontuagdo. 

X Contagem do numero de problemas apresentados. 


Listagem do programa 

0010 PRINT :PRINT TAB( 15), “TESTE DE ESCRITA 1” 
0020 PRINT TAB(15), “= = = = = = = = = = =” 

0030 PRINT: PRINT 

0040 PRINT “Neste teste, apresento-lhe quatro ortografias” 
0050 PRINT “de uma palavra. So uma — ou nenhuma — estara” 
0060 PRINT “correcta. Deve descobrir qual e.” 

0070 PRINT “No final indicarei a sua pontuagao. Tera de’’ 
0080 PRINT “resolver 20 problemas.” 

0090 S = 0:PRINT:PRINT: PRINT “Carregue em RETURN 
quando quiser comegar.” 

0100 DIM A$(20),B$(20) 

0110 INPUT A$ 

0120 FOR X = 1 TO 20 

0130 FOR Y = 1 TO 4: READ A$ 

0140 PRINT A$;“ ”;:NEXT Y:PRINT 
0150 READ B$ 

0160 INPUT “A SUA ORTOGRAFIA”, A$ 

0170 IF A$ = B$ THEN 200 

0180 PRINT “ERRADO. A RESPOSTA CORRECTA E 
”;B$ 

0190 PRINT :PRINT:GOTO 230 
0200 PRINT “CERTO.” 

0210 S = S +1 
0220 PRINT: PRINT 
0230 NEXT X 

0240 PRINT :PRINT “TERMINOU O TESTE.” 

0250 PRINT “VOCE PONTUOU ”;S; “NUM TOTAL DE 
20 ” 

0260 IF S<>20 THEN END 

0270 FORX= 1 TO 20 

0280 PRINT CHR$(30);CHR$(7); 

0290 NEXT X 

0300 PRINT “PARABENS! UMA PONTUAGAO OPTIMA!” 
0310 END 

1000 DATA PASENGER, PASSINGER, PASENJER, PAS¬ 
SENGER, PASSENGER 

1010 DATA APROCHE, APPROACH, APROACH, 
APROACHE, APPROACH 
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1020 DATA CREDD1T, CREDIT, KREDD1T, CRED1TT, 
CREDIT 

1030 DATA SHEPHERD, SHEEPHERD, SHEPPARD, 
SHEPPERD, SHEPHERD 

1040 DATA ENCURRIGE, ENCOUREGE, ENCOURAGE, 
ENCURRAGE, ENCOURAGE 

1050 DATA ELEXTION, ELECTION, ELECSHUN, 
ELECSHON, ELECTION 

1060 DATA ANDSOME, HANDSOME, HANSUM, HAN- 
SUME, HANDSOME 

1070 DATA RASCAL, RASCLE, RASKLE, RASCEL, 
RASCAL 

1080 DATA REZEMBLE, RESEMBEL, RESEMBLE, RES- 
SEMBLE, RESEMBLE 

1090 DATA WRESTEL, RESTLE, RESSEL, RESSAL, 
WRESTLE 

1100 DATA POZESS, POSSESS, POSESS, POSSES, POS¬ 
SESS 

1110 DATA ATENSHUN, ATTENSHON, ATENSHON, 
ATENTION, ATTENTION 

1120 DATABERGLER, BERGLAR, BURGLER, BURGU- 
LER, BURGLER 

1130 DATA PLUNGE, PLUNJE, PLUNJE, PLUNDGE, 
PLUNGE 

1140 DATA GOVERMENT, GOVERNMENT, GOVVER- 
MENT, GUVERMENT, GOVERNMENT 

1150 DATA CRUELLY, CRUELY, CRUELEY, CREWE- 
LY, CRUELLY 

1160 DATA PURCHASE, PERCHASE, PERCHAISE, 
PERCHASE, PURCHASE 

1170 DATA LIDHTENING, LITENING, LIGHTNIN, LI- 
TENIN, LIGHTNING 

1180 DATA TUNG, TUNGUE, TONGUE, TUNGE, TON¬ 
GUE 

1190 DATA IMPROOVEMENT, IMPROVMENT. INPRO- 
VEMENT, INPROOVEMENT, INPROVEMENT 


Exemplo de execu^ao 

Neste teste, apresento-lhe quatro ortografias 
de uma palavra. So uma — ou nenhuma — estara 
correcta. Deve descobrir qual e. 

No final indicarei a sua pontuagao. Tera de 
resolver 20 problemas. 

Carregue em RETURN quando quiser comegar. 

PASENGER PASSINGER PASENJER PASSENGER 

A SUA ORTOGRAF1A? PASSENGER 
CERTO. 

APPOCHE APPROACH APROACH APROACHE 

A SUA ORTOGRAFIA? APROACH 

ERRADO. A RESPOSTA CORRECTA E APPROACH 

CREDDIT CREDIT KREDDIT CREDDITT 
A SUA ORTOGRAFIA? CREDIT 
CERTO. 

SHEPERD SHEEPHERD SHEPPARD SHEPPERD 

A SUA ORTOGRAFIA? SHEPEARD 

ERRADO. A RESPOSTA CORRECTA E SHEPHERD 

ENCURRIGE ENCOUREGE ENCOURAGE ENCURRAGE 

A SUA ORTOGRAFIA? ENCOURAGE 

CERTO. 

ELEXTION ELECTION ELECSHUN ELESCHON 

A SUA ORTOGRAFIA? ELECTION 

CERTO. 

ANDSOME HANDSOME HANDSUM HANDSUME 

A SUA ORTOGRAFIA? HANDSOME 

CERTO. 
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RASCAL RASCLE RASKLE RASCEL 
A SUA ORTOGRAFIA? RASCAL 
CERTO. 
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REZEMBLE RESEMBEL RESEMBLE RESSEMBLE 

A SUA ORTOGRAFIA? RESEMBLE 

CERTO. 

WRESTEL RESTLE RESSEL RESSAL 
A SUA ORTOGRAFIA? WRESTLE 
CERTO. 

POZESS POSSESS POSESS POSSES 
A SUA ORTOGRAFIA? POSSESS 
CERTO. 

ATENSHUN ATTENSHON ATENSHON ATENTION 

A SUA ORTOGRAFIA? ATENTION 

ERRADO. A RESPOSTA CORRECTA E ATTENTION 

BERGLER BERGLAR BURGLER BURGULER 

A SUA ORTOGRAFIA? BUGLAR 

ERRADO. A RESPOSTA CORRECTA E BURGLAR 

PLUNGE PLUNJE PLUNJE PLUNDGE 
A SUA ORTOGRAFIA? PLUNGE 
CERTO. 

GOVERMENT GOVERNMENT GOVVERMENT GUVER- 
MENT 

A SUA ORTOGRAFIA? GOVERMENT 

ERRADO. A RESPOSTA CORRECTA E GOVERNMENT 

CRUELLY CRUELY CRUELEY CREWELY 
A SUA ORTOGRAFIA? CRUELLY 
CERTO. 

PURCHASE PERCHASE PERCHAISE PERCHASE 

A SUA ORTOGRAFIA? PURCHASE 

CERTO. 

LIGHTENING LITENING LIGHTNIN LITENIN 
A SUA ORTOGRAFIA? LIGHTNING 
CERTO. 


TUNG TUNGUE TONGUE TUNGE 
A SUA ORTOGRAFIA? TONGUE 
CERTO. 

IMPROOVEMENT IMPROVMENT INPROVEMENT IN- 
PROOVEMENT 

A SUA ORTOGRAFIA? IMPROVEMENT 
CERTO. 

TERMINOU O TESTE. 

VOCE PONTUOU 15 NUM TOTAL DE 20 
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XI 


ARITMETICA (1,5 K) 

Apresentamos agora um programa bastante util com aigumas 
caracteristicas interessantes. 

Se ainda nao tiver encontrado uma fungao definida pelo utili- 
zador, a linha 20 talvez o preocupe um pouco. E lida do seguinte 
modo: “Defina a fungao A de X como...” Por outras palavras, 
sempre que quisermos podemos atribuir a uma variavei o valor 
obtido por uma fungao por nos introduzida, nao nos limitando 
apenas as previstas na versao de Basic usada pela maquina. Na 
pratica, isto permite poupar espago de memoria. A fungao que 
aqui usamos atribui um valor aleatorio na gama A a M + A, sen- 
do chamada duas vezes na linha 1000. Se a sua maquina nao dis- 
puser desta instrugao (DEF FN), omita muito simplesmente a li¬ 
nha 20 e escreva; 

1000 N1 = INT(RND(0)*M + A):N2 = INT(RND(0)*M + A) 

A segunda coisa a notar quanto a este programa e o “menu” 
das linhas 40 a 80. Trata-se de um estratagema vulgar e muito 
util quando se trata de apresentar ao utilizador uma escolha en- 
tre varias hipoteses. Neste caso numerei as hipoteses, devendo o 
utilizador escrever um numero em resposta; mas se se quiser e 
possivel obrigar o utilizador a escrever um norrie, ou talvez ape¬ 
nas uma inicial. 

O uso das variaveis M e A permite-nos manipular a gama de 
numeros apresentados, e sera facil compreender que estes'depen¬ 
dent do nivel de dificuldade escolhido. M e um multiplicador do 
nivel de dificuldade, enquanto que A<e um factor a somar. Este 
ultimo e particularmente importante para a divisao, pois sem ele 
seria possivel dividir por zero, ievando o programa a ser inter- 
rompido. 
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Finalmente, e pela primeira vez neste livro, iremos usar subro- 
tinas. Estas permitem poupar muito espago de memoria. A esco¬ 
lha de numeros e a sua apresentagao sao rotinas comuns a todas 
as operagoes escolhidas, e portanto e logico dispor de uma su- 
brotina apesar de ser verdade que, pelo menos a este nivel, teria 
sido possivel usar GOTOs para eliminar ambas as subrotinas. 
No entanto, constitui um bom habito de programagao usar su¬ 
brotinas sempre que possivel. A listagem torna-se mais facil de 
ler e a eliminagao de err os de programagao e muito facilitada. 

Certos autores afirmam que uma rotina deve ter apenas uma 
saida, mas pessoalmente nao tenho a certeza disto (veja as linhas 
2070 e 2090). Estes autores prefeririam que em vez de incluir RE¬ 
TURN no final destas linhas tivesse escrito GOTO 2100. Esta li¬ 
nha conteria assim a simples instrugao RETURN, sendo de facto 
a unica saida da subrotina. Pessoalmente, penso que os GOTOs 
sao horriveis e tento evita-los sempre que possivel. 


Lista de variaveis 

T Tipo de problema escolhido 

D Nivel de dificuldade seleccionado 

M Multiplicador aleatorio 

A Factor aleatorio a adicionar 

S Problema em estudo 

R Resultado correcto dos calculos 

C Numero de soiugoes correctas indicadas 

I Entradas do utilizador 

N1 Primeiro numero aleatorio 

N2 Segundo numero aleatorio 

Q$ String de resposta 


Listagem do programa 

0010 PRINT :PRINT “ARITMETICA” 

0020 DEF FNA(X) = INT(RND(0)*M + A) 

0030 PRINT :PRINT “Ola! Estou programado para apresen 

tar-lhe 20 resultados.” 

0040 PRINT :PRINT “De que tipo prefere — ” 
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0050 PRINT "1 — somar” 

0060 PRINT “2 — diminuir” 

0070 PRINT “3 — multipiicar” 

0080 PRINT “4 — dividir....” 

0090 INPUT T:IF T>4THEN 110 
0100 IF T>0 THEN 120 

0110 PRINT “Por favor escreva um numero entre 1 e 4”: 
GOTO 90 

0120 PRINT “Dificuldade: escreva um numero entre 1 (facil) 
e 9 (dificil)” 

0130 INPUT D:IFD>9 THEN 150 
0140 IF D>0 THEN 160 

0150 PRINT “Um numero entre I e 9, por favor.“:GOTO 
130 

0160 PRINT 

0170 PRINT “Certo, ca vamos... ”:C =0 

0180 FOR S = 1 TO 10:ON T GOTO 200,300,400,500 

0190 REM — adigao + + + + + + + + + + + + + + ■*- + + 

0200 M = 10*D:A = 10*(D - l):GOSUB 1000 

0210 R = N1 + N2:GOSUB 2000 

0220 GOTO 600 

0290 REM — subtracgao rrr++ + + +r + ++ + 

0300 M = 10*D:A = I0*(D - l):GOSUB 1000 
0310 R = NUN 1 = R + N2:GOSUB2000 
0320 GOTO 600 

0390 REM — multipliea<;ao + + + + + + + + + + + + 

0400 M = D + 3:A = 0:GOSU B 1000 
0410 R = Nl*N2:GOSUB 2000 
0420 GOTO 600 

0490 REM — divisao 1 -+ + + + + ++ + + + + + +■ 

0500 M = D + 3:A = I:GOSUB 1000 
0510 R = N1 :N1 = R*N2:GOSUB 2000 
0600 NEXTS 
0610 IF C<20 THEN 630 

0620 PRINT: PRINT :PRINT “PARABENS! — 

0630 PRINT “A sua pontuagao foi/’;C;“ num total de 20.” 
0640 INPUT “Quer jogar de novo’UQS 
0650 IF LEFT$(Q$,1) = “S” THEN 40 
0660 PRINT :PRINT 


0670 PRINT “Adeus — foi divertido jogar constgo.” 

0680 FOR X = 1 TO 10:PRINT:NEXT X:END 

0990 REM — Escolher dois numeros + + + + ++ + +■ + 

1000 N1 = FNA(X):N2 = FNA(X):RETURN 

1990 REM — Imprimir problema, aceitar e veriticar respos 

£&+ + +■ + + + + +. + + + + + + 

2000 PRINT :PRINT 
2010 PRINT “Quanto e ”;N1; 

2020 LFT = 1 PRINT “ + 

2030 IFT = 2 PRINT 
2040 IF T = 3 PRINT i4 X”; 

2050 IFT = 4 PRINT “dividido por’’; 

2060 PRINT N2;:INPUT l 

2070 IF I = R PRINT ‘VCERTO!”:C == C + l:RETURN 
2080 PRINT “ Epena, esta errado.’' 

2090 PRINT “A resposta correcta e "’;R:RETURN 


Exemplo de execu^ao 

Ola! Estou programado para apresentar-lhe 20 resultados. 
De que tipo prefere — 

1 — somar 

2 — diminuir 

3 — multipiicar 

4 — dividir...? 1 

Dificuldade: escreva um numero entre 1 (facil) e 9 (dilicil) 
3 

Certo, ca vamos... 

Quanto e 30 4 - 44? 74 / CERTO! 

Quanto e 42 + 25? 67 / CERTO! 

Quanto e 36 + 34? 70 / CERTO! 

Quanto e 46 + 26? 68 E pena, esta errado. 

A resposta correcta q 72 
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Quanto e 40 + 32? 72 / CERTO! 

Quanto e 27 + 21 ? 48 / CERTO! 

Quanto e 37 + 40? 77 / CERTO! 

Quanto e 38 + 44? 72 E pena, esta err ado. 
A resposta correcta e 82 


Quanto e 42 + 25? 67 / CERTO! 

Quer jogar de novo? N 

Adeus — foi divertido jogar consigo 


XII 

SERIES DE NUMEROS (3 K) 

As series de numeros sao um bom teste de aten$ao. Sao apre- 
sentados ao utilizador alguns numeros por uma dada ordem, 
sendo-lhe pedido que indique o ou os numeros seguintes em fun- 
£ao da logica dessa ordenagao. Por exemplo, considere a serie 
seguinte: 

2468 10 12 

E obvio que o numero seguinte e 14. Que fizemos? Notamos 
que a diferen^a entre o primeiro e o segundo numero e de 2, en- 
tre o segundo e o terceiro tambem 2, e deduzimos que dai em 
diante todas as diferen<?as serao iguais, Verificamos esta hipotese 
observando as diferengas restantes. Como sao de facto iguais a 
2, concluimos que se trata de uma regra invariavel e podemos ex- 
trapolar para o par de numeros que se segue. 

Se a serie de numeros apresentada pelo computador fosse sem- 
pre do mesmo tipo, o teste tornar-se-ia extremamente matador. 
Se, por exemplo, deduzirmos que as diferen?as entre numeros 
sao sempre as mesmas para uma dada serie, basta-nos olhar para 
os dois primeiros elementos para descobrir qual a diferenga, adi- 
cionando-a ao ultimo. N&o se pode dizer que seja muito diverti¬ 
do... Mas consideremos o seguinte exemplo: 

247 11 1622 

Ja temos de fazer uma pausa ate eompreendermos que o incre- 
mento de um numero para o seguinte tambem e aumentado (a 
proposito, o numero seguinte e 29...) 

Do que se disse deve poder concluir-se que para ter exito o 
programa deve ser capaz de apresentar muitos tipos de series di- 
ferentes. O programa que apresentamos a seguir faz exactamen- 
te isso — 10 tipos diferentes — e nao sera diftcil aumentar ainda 
mais as hipoteses se o leitor desejar. 
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O tipo de problema e escolhido na linha 110, sendo executada 
uma nova selecgao na linha 7010 cm alguns casos. Utilizo trSs 
fungoes definidas por mim designadas por A, B e C, que forne- 
cem numeros aleatorios ate 9, 99 e 7 respectivamente. Se nao pu- 
der usar DEF FNs, empregue em vez delas as instrugoes de selec- 
gSo aleatoria que a sua maquina aceita sempre que vir FN na lis- 

tagem. . . 

Na linha 90 defini um comprimento de linha de 80 caracteres 

porque a tripla sequencia produz linhas compridas que podem 
passar para a linha seguinte, talvez cortando um numero de dois 
ou tres algarismos ao meio; o que obviamente nao e aconselha- 
vel. Do mesmo modo, na linha 150 voltei ao comprimento habi¬ 
tual para o uso em programas subsequent es. 

Se o leitor conceber uma serie nova, inclua uma pequena su- 
brotina que a trate e em seguida altere a linha 110. 


Lista de variaveis 

Q$ String de resposta 

P Numero da serie apresentada 

T Tipo de serie 

S Pontuagao 

X Contador dos elementos da serie 

Z Solugdo correcta • 

Q Primeiro algarismo indicado pelo utihzador 

Q1 Segundo algarismo indicado pelo utilizador 

A a F Numeros para uso na serie. 


Listagem do programa 

0010 PRINT TAB(20);“SERIES” 

0020 PRINT TAB(20);“= = = = ” m 

0030 PRINT :INPUT “Deseja mstrugoes (S/N) ,QJ> 
0040 IF LEFT$(Q$,1) = “S” THEN-GOSUB 9000 
0050 DEF FNA(X) = INT(RND(0)*10) 

0060 DEF FNB(X) = INT(RND(0)* 100) 

0070 DEF FNC(X) = INT(RND(0)*7) + 1 


0080 PRINT .-PRINT 
0090 LINE = 80 
0100 FOR P = 1 TO 20 

0110 T = FNC(T).ON T GOSUB 1000, 2000, 3000, 4000, 
5000, 6000,7000 
0120 PRINT :PRINT:NEXT P 
0130 PRINT :PRINT:PRINT 

0140 PRINT “A SUA PONTUA£AO FOI ”;S;“NUM TO 
TALDE20.” 

0150 LINE = 64:END 

1000 REM — Sequencia simples 

1010 A = FNA(A):IF RNDX5 THEN A = —A 

1020 B = FNB(B):IF RND>.5 THEN B = -B 

1030 FOR X = 1 TO 6 

1040 PRINT B + X*A;“, ”;:NEXT X:PRINT 
1050 Z = B + 7*A 

1060 INPUT “QUE VEM A SEGUIR”,Q 

1070 IF Q = Z PRINT “CORRECTORS = S +1:RETURN 

1080 PRINT “E PENA — DEVIA SER ”;Z:RETURN 

2000 REM — Incremento progressive 

2010 A = FNA(A):IF RND>.5 THEN A =-A 

2020 B = FNB(B):IF RND>.5 THEN B = -B 

2030 C = 1: IF RNDX5 THEN C = -1 

2040 FOR X = 1 TO 6 

2050 PRINT B;“, ”;:B = B +A:A = A + C:NEXTX:PRINT 
2060 Z = B:GOTO 1060 
3000 REM — Alterrtadas 

3010 A = FNA(A):B = FNA(A):IF A = B THEN 3010 
3020 C = FNA(A):D = FNA(A) 

3030 FOR X = 1 TO 4 

3040 PRINT A + X*C;“, ”;B + X*D;“, ”;:NEXTX:PRINT 
3050 GOSUB 8000:A = A + 5*C:B = B + 5*D:GOTO 5090 
4010 A = FNA(A):B = FNA(B) 

4020 C = FNA(A):D = -(FNA(D» 

4030 GOTO 3030 

5010 A = FNA(A):B = FNA(A):IF A = B THEN 5010 
5020 C = FNAB(C):IF C = A THEN 5020 
5030 IF C = B THEN 5020 
5040 I = FNC(I) 

5050 FOR X = 1 TO 4 
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5060 PRINT A;“, ”;:A = A + I:B-B + I:- 

C = C + I:NEXT C: PRINT 
5070 GOSUB 8000 
5090 IF Q<>A THEN 5110 
5100 IFQ1 = BTHEN5120 

5110 PRINT “NAO. DEVIA SER ”;A;“ E ”;B:RETURN 
5120 PRINT “CORRECTORS = S+ 1:RETURN 
6010 A = FNA(A):IF RND>.5 THEN A = -A 
6020 B = FNA(A):IF RND>.5 THEN B = -B 
6030 IF A = B THEN 6020 

6040 C = INT(RND(0)* 3):IF RNDX5 THEN C = -C 
6050 D = INT(RND(0)*2 + 1):IF RND>.5 THEN D = -D 
6060 E = 1:IF RND>.5 THEN E ——1 
6062 F= 1:IF RND>.5 THEN F = -l 

6065 FOR X = 1 TO 5 _ „ „ _ 

6070 PRINT A;“, ”;B;“, ”;:A = A + C:B = B + D:- 

C = C + E:D = D + F 
6080 NEXT X:PRINT 
6090 GOSUB 8000:GOTO 5090 
7000 REM — Casos especiais 

7010 ON INT(RND(0)*4 + l)GOTO 7100,7200,7300,7400 

7100 A = INT (RND(0)*4 + l):FOR X = 1 TO 6 

7110 PRINT A;“, ”;:A = A*2:NEXT X:PRINT 

7120 Z = A:GOTO 1060 

7200 R = FNC(A):FOR X = 1 TO 6 

7210 PRINT A*A;“, ”;:A = A+ 1:NEXTX:PRINT 

7220 Z = A*A:GOTO 1060 

7310 A = FNA(A):IFRND>.5 THEN A =-A 

7320 B = FNA(A):IFA = B THEN 7320 

7325 IF B<A THEN C = A:A = B:B = C 

7330 FOR X = 1 TO 7 . v 

7340 PRINT A;“, ”;:C = A:A = B:B = A + C:NEXT X:- 

DDTMT 

7350 Z = A:GOTO 1060 

7410 A = 0:FOR D = 1 TO 4:B = C:C = FNA(C)+1:A = - 
A*10 + C:NEXT D 

7420 B = C:C= 1:IF RNDX5 THEN C = -l 
7430 FOR X= 1 TO 7:PRINT A;“, 

7440 B = B + C:A = (A-INT(A//1000)* 1000)* 10 + B 
7450 NEXT X:PRINT:Z = A:GOTO 1060 
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8000 INPUT “QUE VEM A SEGUIR”,Q 
8010 INPUT “E DEPOTS”,Q1 
8020 RETURN 

9000 PRINT “Todos conhecemos muitas series de numeros, ” 
9010 PRINT “como por exemplo 12345 ou 369 12 15”; 
9020 PRINT “e sabemos indicar o numero que se segue na 
9030 PRINT “serie. Este programa e desse tipo, se bem 
9040 PRINT “que evidentemente nem todas as series sejam 
9050 PRINT “tao simples! indico os primeiros numeros, e 
9060 PRINT “voce deve indicar o seguinte.” 

9070 PRINT :INPUT “Carregue em RETURN para come 
gar... ”,Q$: RETURN 


Exemplo de execugao 

Deseja instrugoes (S/N)? N 
-63 ,-61 , -60 , -60 , -61 , -63, 

QUE VEM A SEGUIR? -60 
E PENA — DEVIA SER -66 

11,28,18,21,25,14,32,7, 

QUE VEM A SEGUIR? 39 
E DEPOIS? 0 
CORRECTO 

7,3,82,13,9,88 , 19,15,94,25,21 ,100 , 

QUE VEM A SEGUIR? 31 
E DEPOIS? 27 
CORRECTO 

21,16,12,9,7,6, 

QUE VEM A SEGUIR? 6 
CORRECTO 

-60,-68,-75,-81,-86,-90, 

QUE VEM A SEGUIR? -93 
CORRECTO 
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10,10,14,19,18,28,22,37, 
QUE VEM A SEGUIR? 26 
E DEPOIS? 46 
CORRECTO 


25,36,49,64,81,100, 
QUE VEM A SEGUIR? 121 
CORRECTO 


7,1,41,9,3,43,11,5,45,13,7,47, 
QUE VEM A SEGUIR? 15 
E DEPOIS? 9 
CORRECTO 


CORRIDAS DE CAV ALOS (3 K) 

Ja foram escritos muitos programas de corridas de cavalos, 
mas o que torna este um pouco diferente e o sistema de apostas 
usado, que se baseia na diferente probabilidade de veneer de ca~ 
da um dos cavalos. Esta probabilidade varia em fungao do corn- 
portamento do cavalo, comegando inicialmente por 4 para 1 em 
todos os casos. Depois, a medida que e ganha uma corrida, o 
vencedor vS as suas probabilidades diminuirem enquanto as dos 
outros aumentam. 

Um refinamento deste programa consistiria em dispor de um 
conjunto de cavalos (por exemplo 10 ou 12) de entre os quais s6 
6 seriam escolhidos para cada corrida. Outra possibilidade ainda 
consistiria em atribuir parametros a cada cavalo em fungao das 
suas potencialidades, tendo estes parametros em conta em cada 
movimento. Estes parametros devem obviamente ser bastante 
pequenos — certamente nunca superiores a 3 ou 4 — e devem ser 
reduzidos & medida que o cavalo ganha corridas. Isto equiValeria 
portanto ao “cansago” do animal. Estes dois refinamentos colo- 
cariam curiosos dilemas aos apostadores que tivessem de esco- 
Iher entre dois cavalos que ainda nao tivessem corrido juntos. 

Mesmo sem estes refinamentos, o jogo 6 bastante divertido e 
pode provocar bastante excita^ao. Os jogadores podem apostar 
tanto quanto quiserem em qualquer cavalo, e o jogo termina 
quando um dos jogadores fica sem dinheiro. 

O visor apresenta a corrida em diferentes fases, mas se o seu 
terminal pode ser comutado para modo pagina ou modo 
‘ ‘scroll’ ’ a corrida pode ser executada em modo pagina com o 
cursor desligado. O resultado e uma corrida bastante animada, 
muito interessante de observar. 
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O programs utiliza duas matrizes sob a forma de tabelas, uma 
para varios parametros relacionados com os cavalos e a outra 
para os jogadores. Os pormenores sao indicados na lista de va- 
riaveis. Note que no interior dos parentesis o primeiro algarismo 
indica um cavalo ou jogador, enquanto que o segundo indica um 
dado ligado a esse cavalo ou jogador. Este e talvez o metodo 
mais comum de uso de uma matriz, e simplifies bastante a pro- 
gramagao. Note no entanto que a maior parte das BASICs reser- 
vam memoria para uma matriz de dimensoes 10 por 10 a menos 
que se especifiquem outras dimensoes, pelo que o dimensiona- 
mento das matrizes na linha 100 permite poupar uma enorme 
quantidade de memoria. 

Encontramos igualmente um array P$ onde se guarda o nome 
de cada jogador de tal modo que o computador se possa dirigir a 
este usando o seu nome, o que torna o programs mais agradavel. 
Este array foi deixado nao dimensionado, pelo que podem jogar 
simultaneamente 10 pessoas. Se lhe parece que este numero e ex- 
cessivo, diminua-o acrescentando uma instrugao DIM no final 
da linha 40. 


Lista de variaveis 

P Numero total de jogadores 

P$(P) Nome do jogador P 

H(X,Y) Parametros dos cavalos, onde 

X = numero do cavalo 

Y = 1 = posigao na tabela ou corrida 

2 = probabilidade de veneer 
P(X,Y) Parametros dos jogadores, onde 

Y = 1 = Dinheiro disponivel 

2 = Dinheiro apostado 

3 = Cavalo em que seaposta 

B Actual aposta do jogador 

H Actual numero do cavalo 

X Contador 

F Posigao na tabela do cavalo mais r4pido 

Q Numero do vencedor; tambem contador 

W Quantidade de vitorias 

Q$ String de entradas 


Listagem do programs 

0010 PRINT :PRINT:PRINT TAB (10); “CORRIDAS DE 
CAVALOS” 

0020 PRINT 

TAB(10);“ ==================” 

0030 PRINT :PRINT “POR FAVOR INDIQUE NOMES” 
0040 P = 1 

0050 PRINT “Jogador n.”;:INPUT P$ (P) 

0060 IF P$(P) = ‘‘’’THEN 80 
0070 P = P + l:GOTO 50 
0080 P = P-1: PRINT 

0090 PRINT “Cada jogador comega com $100.”:PRINT 
0100 DIM H(6,2),P(P,3) 

0110 FORX=1TOP:P(X,1) = 100:NEXTX 
0120 PRINT “Todos os cavalos comegam a 4 para 1” 

0130 FOR X = 1 TO 6:H(X,2) = 4 
0140 NEXT X 
0150 GOSUB2000 
0160 FOR X = 1 TO P 

0170 P$(X)/‘ — voce tern $”;P(X,1);“. Quanto quer apostar”; 

0180 INPUT B:IF B< = P(X, 1) THEN 200 

0190 PRINT “Nao tern esse dinheiro!”:GOTO 170 

0200 P(X,2) = B:P(X,1) = P(X,1)-B 

0210 INPUT “Em que cavalo”,B 

0220 IF B< = 6 THEN 240 

0230 PRINT“Esse cavalo nao participa na corrida”:GOTO 210 

0240 IF B< = 0 THEN 230 

0250 P(X,3) = B:NEXT X 

0260 REM Modo pagina. CLS e imprimir meta 

0270 PRINT CHR$(25);CHR$(25);CHR$(25);CHR$(5) 

0280 FOR X = 1 TO 6:PRINT TAB(40):“! ”:NEXT X 
0290 FOR X = 1 TO 6:H(X,1)= 1:NEXT X t, 

0300 PRINT “PARTIRAM!” 5 

0310 PRINT CHR$(16):REM reset cursor 
0320 FOR X = 1 TO 6 
0330 FOR Z= 1 TO H(X,1) 

0340 PRINT “,”;:NEXTZ 
0350 PRINT X: NEXT X 
0360 REM Verificar vencedor 
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0370 Q = 0:F = 0:FOR X = 1 TO 6 

0380 IF H(X, 1><39 THEN 400 

0390 IF H(X,1)>FTHENF = H(X,1):Q = X 

0400 NEXTX 

0410 IF QOO THEN 500 

0420 REM Mover cavalos 

0430 FOR X = 1 TO 6 

0440 H(X, 1) = H(X, 1) + INT(RND(0) '"7) + 1 
0460 NEXT X:GOTO 310 

0500 PRINT :PRINT “O VENCEDOR E O NUMERO 

0510 PRINT “VIVA ”;:GOSUB 3000:PRINT “!” 

0520 PRINT :PRINT 
0530 REM — Modo scrolling 
0540 PRINT CHR$(14) 

0550 REM — Relatorio aos jogadores 
0560 FOR X = 1 TO P 

0570 PRINT P$(X);“ — a sua apostano n.”;P(X,3); 

0580 IF Q5P(X,3) THEN PRINT “PERDEU”:GOTO 630 
0590 PRINT “ganhou ”;H(Q,2);“para 1” 

0600 W = P(X,2)*H(Q,2) 

0610 PRINT “GANHOU $”;W;“ ALEM DO QUE APOS 

YOU J 5 

0620 P(X, 1) = P(X, 1) + W + P(X,2):GOTO 640 
0630 P(X,2) = 0:P(X,3) = 0 
0640 NEXT X:PRINT:PRINT 

0650 PRINT “POSIQAO FINANCEIRA GLOBAL — ’’ 

0660 FOR X= 1 TO P 

0670 PRINT P$(X);“ $”;P(X,1) 

0680 NEXT X 

0685 FOR X = 1 TO P: IF P(X, 1) = 0 THEN 4000 
0686 NEXTX 
0690 PRINT 

0700 INPUT “Outra corrida”,Q$ 

0710 IF LEFTS (Q$,1)<>“Y” THEN END 
0720 REM — Ajustar probabilidades 
0730 FOR X= 1 TO 6 

0740 IF X = Q THEN H(X,2) = INT(H(X,2)/2) + 1 :GOTO 760 
0750 H(X,2) = H(X,2) + 1 
0760 NEXTX 


0770 GOSUB 2000:GOTO 160 
2000 REM Indicar probabilidades 
2010 FOR Q = 1 TO 6 
2020 PRINT Q;“ — ”;:GOSUB 3000 
2030 PRINT “ ”;H(Q,2);“PARA 1” 

2040 NEXT Q 
2050 PRINT 
2060 RETURN 

3000 ON Q GOTO 3010,3020,3030,3040,3050,3060 
3010 PRINT “LIVELY LADY”:GOTO 3070 
3020 PRINT “OWZYAFARVER”;:GOTO 3070 
3030 PRINT ‘‘SPINDRIFT”"GOTO 3070 
3040 PRINT “RUNNING WILD”;:GOTO 3070 
3050 PRINT “UNCLE VANYA”;:GOTO 3070 
3060 PRINT “WHITE TORNADO”;:GOTO 3070 
3070 RETURN 

4000 PRINT “JOGADOR(ES) SEM DINHEIRO. FIM DO 
JOGO” 

Exemplo de execugao 

POR FAVOR INDIQUE NOMES 
Jogadorn.l ? Joao 
Jogador n.2 ? Maria 
Jogador n.3 ? Manuel 
Jogador n.4 ? 

Cada jogador come?a com $100 

Todos os cavalos come?am a 4 para 1 

1 — LIVELY LADY 4 PARA 1 

2 — OWZYAFARVER 4 PARA 1 

3 — SPINDRIFT 4 PARA 1 

4 — RUNNING WILD 4 PARA 1 

5 — UNCLE VANYA 4 PARA 1 

6 — WHITE TORNADO 4 PARA 1 

Joao — voce tem $100. Quanto quer apostar? 10 
Em que cavalo? 5 

Maria — voce tem $100. Quanto quer apostar? 50 
Em que cavalo? 3 
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Manuel — voce tem $100. Quanto quer apostar? 20 

Em que cavalo? 4 

PARTIRAM! 


O VENCEDOR E O NUMERO 5! 
VIVA UNCLE VANYA! 


Joao — a sua aposta no n.5 ganhou 4 para 1 
GANHOU $40 ALEM DO QUE APOSTOU. 
Maria — a sua aposta no n.3 perdeu 
Manuel — a sua aposta no n.4 perdeu 

POSIQAO FINANCEIRA GLOBAL — 

Joao $140 
Maria $50 
Manuel $80 


Outra corrida? SIM 

1 — LIVELY LADY 5 PARA 1 

2 — OWZYAFARVER 5 PARA 1 

3 — SPINDRIFT 5 PARA 1 

4 — RUNNING WILD 5 PARA 1 

5 — UNCLE VANYA 3 PARA 1 

6 — WHITE TORNADO 5 PARA 1 


XIV 

NUCLEAR (3,5 K) 

“Nuclear” e um jogo de pericia entre dois jogadores. E sufi- 

cientemente explicado nas instrugoes. 

Este programa tambem utiliza uma matriz, mas desta vez co- 
mo area de jogo. O leitor notara que eu dimensionei uma matriz 
de 8 x 8, atribuindo o valor zero a todos os seus elementos, mas 
que apenas usei uma 6x6. Fi-lo por uma questao de simplicida- 
de na escrita do programa, porque obtenho assim um rebordo 
sem nada a volta da rede onde se efectua o jogo. O interesse dis- 
to torna-se obvio quando se observam as linhas 1140 a 1160: foi 
encontrado um &tomo em M(I, J), e e necessario verificar se pos- 
sui ou nao tr6s ou mais vizinhos. Se o ponto I, J estivesse na peri- 
feria da matriz, X e/ou Y podia estar fora dela; o computador 
teria de verificar um elemento nao existente na matriz e o pro¬ 
grama falharia. Como e obvio, o problema poderia ser resolvido 
usando instrugdes IF do tipo “IF X<1 THEN...”, mas como se- 
riam ocupadas quatro linhas, alem do facto de nas linhas 1260 a 
1270 surgir uma rotina semelhante, decidi-me a nao as usar. Este 
metodo e alias particularmente simples. 

A medida que cada jogador coloca um atomo na matriz, esse 
elemento da matriz e passado para um valor correspondente ao 
jogador — 1 para A e 2 para B. O elemento pode passar igual- 
mente para o valor 10 quando explode. Esta secsao ocupa as li¬ 
nhas 1200 a 1310, onde e verificada a flag C. A flag inicia o ciclo 
com o valor 0, passando a 1 quando e feita qualquer altera<?ao, 
isto e, quando explode um atomo. Nestas condi^oes, se C tem 
ainda o valor 0 quando e atingida a linha 1310, a reaapao em ca- 
deia termina. 

E indicado aos jogadores quais os atomos que explodiram e a 
linha 1380 limpa os restos — isto e, passa a zero o elemento da 
matriz. O resto da listagem e facil de compreender. 
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O jogo pode prosseguir durante bastante tempo entre dois jo 
gadores bons. A estrategia a utilizar nao e facil de descobrir, se 
bem que os cantos sejam mais seguros do que os lados e estes 
melhores do que o meio da rede. Como e obvio, torna-se neces- 
sario espalhar os atomos pela rede a fim de n&o os colocar em ca- 
deia. 


Lista de vari&veis 

Q$ String de entradas 

M(X, Y) Rede de jogo, com margem em redor 
X Contador de linha 

Y Contador de coluna 

I Contador principal de linha 

J Contador principal de coluna 

P Jogador actual 

F Flag de final 

N Contagem de atomos vizinhos 

C Flag de alteragao ou explosSio 

A Contador de dtomos do jogador A 
B Contador de atomos do jogador B 

Listagem do programa 

0010 PRINT “NUCLEAR” 

0020 PRINT “-” 

0030 PRINT 

0040 INPUT “Deseja instates”,Q$ 

0050 IF LEFTS (Q$,1) = “Y” THEN 9000 
0055 REM limpar matriz 
0060 DIMM(8,8) 

0070 FOR X = 1 TO 8:FOR Y = 1 TO 8 

0080 M(X,Y) = 0 

0090 NEXT Y: NEXT X 

0095 REM loop de jogo continua indefinidamente 

0100 FOR P = 1 TO 2:GOSUB 1000 

0110 IF FOO THEN 0130 

0120 NEXT P:GOTO 100 

0130 PRINT :PRINT 
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0140 ON F GOTO 150,160 

0150 PRINT “JOGO EMPATADO”:GOTO 180 

0160 IF P = 1 PRINT “A”; 

0170 IF P = 2 PRINT“B”; 

0180 PRINT :PRINT:END 

0990 REM — Vez do jogador 

1000 GOSUB 2000: REM imprimir mapa 

1005 PRINT “Jogador ”;:IF P = 1 PRINT “A”; 

1010 IF P = 2 PRINT “B”; 

1015 INPUT “ — O SEU ATOMO (LINHA,COLUNA) ,I,J 
1020 IF I>6 THEN 1060 
1030 IF K1 THEN 1060 
1040 IF JC1 THEN 1060 

1050 IF J< = 6 THEN I = I + 1: J = J +1 :GOTO 1070 
1060 PRINT “Movimento ilegal”:GOTO 1070 
1070 IF M(I,J)<>0 PRINT “Essa posigao ja esta ocupa 
da”:GOTO 1010 
1080 M(I,J) = P 

1090 REM Verificar estado critico 

1100 REM Para cada atomo, contar vizinhos 

1110 F0RI = 2T0 7:F0RJ = 2T07 

1120 IF M(I,J) = 0 THEN 1180 

1130 N = 0:REM Contagem de vizinhos 

1140 FORX = 1-1 TO 1 + l:xFOR Y = J-l TO J + 1 

1150 IF M(X,Y)<>0 THEN N = N + 1 

1160 NEXT Y :NEXT X 

1170 IF N< = 4 THEN 1200 

1180 NEXT J:NEXT I 

1190 RETURN :REM — Nenhum critico 

1195 REM Inicio da reacgao em cadeia 

1200 PRINT :PRINT “Massaem ”;I-1;J-1; “passaacntica 

1210 M(I,J)=10 

1220 REM Para cada critico, afectar vizinhos 

1230 C = 0:FOR I = 2 TO 7:FOR J = 2 TO 7 

1240 IF M(I,J)<>10 THEN 1300:REM Descobrir um critico 

1250 FOR X = 1-1 TO I + 1: FOR Y = J = 1 TO J + 1 

1260 IF M(X,Y)= 1 THEN 1280 

1270 IF M(X,Y)<>2 THEN 1290 

1280 M(X,Y) = 10:C = 1 :REM Alterar flag 

1290 NEXT Y:NEXT X 
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1300 NEXT J:NEXT I 

1310 IF C = 0 THEN 1330 

1320 PRINT “A reacgao continua”:GOTO 1230 

1330 PRINT :PRINT 

1340 PRINT “A reacgao terminou”:GOSUB 2000 
1350. REM Limpar restos, verificar resultados 
1360 A = 0:B = 0 

1370 FOR 1 = 2 TO 7:FOR J = 2 TO 7 
1380 IF M(I,J) = 10 THEN M(I,J) = 0 
1390 IF M(I, J) = 1 THEN A = A + 1 
1400 IF M(I,J) = 2 THEN B = B + 1 
1410 NEXT J:NEXT I 
1420 IF AOO THEN 1450 

1430 IF B = 0 THEN F= 1:RETURN:REM Jogo empatado 

1440 P = 2:F = 2: RETURN:REM B ganha 

1450 IF BOO THEN F = 0: RETURN REM — Jogo continua 

1460 P = 1 :F = 2:RETURN:REM A ganha 

1990 REM Imprimir mapa 

2000 PRINT 

2010 PRINT “ 1 2345 6” 

2020 F0RI = 2T0 7:PRINT I-l;“ 

2030 FOR J = 2 TO 7 
2040 IF M(I,J) = 0 PRINT 
2050 IF M(I,J) = 1 PRINT “A”; 

2060 IF M(I,J) = 2 PRINT “B”; 

2065 IF M(I,J) = 10 PRINT 
2070 PRINT “ ”;:NEXT J 
2080 PRINT:NEXT I:PRINT:RETURN 
9000 PRINT “‘NUCLEAR’ E UM JOGO ENTRE DOIS JO 
GADORES, 

9010 PRINT “CADA UM COLOCANDO UM ATOMO DE 
URANIO 235 NUMA 

9020 PRINT “REDE. QUALQUER ATOMO COM 3 OU 
MAIS VIZINHOS”; 

9030 PRINT “TORNA-SE INSTAVEL E EXPLODE, 
DESTRUINDO-SE A 

9040 PRINT “SI MESMO E AOS VIZINHOS, QUE POR 
SUA VEZ DESTROEM 

9050 PRINT “OUTROS. ISTO PROVOCA UMA REAC 
QAO EMCADEIA.O”; 
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9060 PRINT “VENCEDOR E AQUELE QUE DESTRQl 
TODOS OSATOMOS”; 

9070 PRINT “DO OPOSITOR MANTENDO UM OU 
MAIS DOS SEUS.” 

9080 INPUT “CARREGUE EM RETURN PARA COME 
QAR...”,Q$ 

9090 RETURN 

Exemplo de execugao 
Deseja instrugoes? NAO. 

Jogador A — O SEU ATOMO (LINHA,COLUNA)? 1 ,4 
Jogador B — O SEU ATOMO (LINA.COLUNA)? 3 ,6 
Jogador A — O SEU ATOMO (LINHA,COLUNA)? 6 ,6 
Jogador B — O SEU ATOMO (LINHA.COLUNA)? 3 ,3 
Jogador A — O SEU ATOMO (LINHA.COLUNA)? 4 ,4 
Jogador B — O SEU ATOMO (LINHA.COLUNA)? 4 ,1 
Jogador A — O SEU ATOMO (LINHA.COLUNA)? 5 ,4 
Jogador B — O SEU ATOMO (LINHA.COLUNA)? 3 ,3 
Massa em 3 3 passa a critica 
A reacgao continua 
A reacgao continua 
A reacgao terminou 

Jogador A — O SEU ATOMO (LINHA.COLUNA)? 3 ,5 
Jogador B — O SEU ATOMO (LINHA.COLUNA)? 5 ,5 
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Jogador A — O SEU ATOMO (LINHA.COLUNA)? 3 ,3 
Jogador B — O SEU ATOMO (LINHA,COLUNA)? 4 ,4 
Massa em 4 4 passa a critica. 

A reacgao continua 
A reacg&o terminou 
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XV 


ESCREVER NUMEROS (2 K) 

Uma subrotina pode chamar outra. Isto coloca imediatamente 
duas questSes: como se sai da subrotina, e qual sera o inter esse 
dela? 

A primeira questao nao e dificil. Basta contar o numero de 
chamamentos de rotinas e assegurar a existencia de um numero 
equivalente de instru?5es RETURN. O objectivo de uma rotina 
deste tipo, por outro lado, consiste em poupar espago de memo- 
ria quando e necess&rio repetir as mesmas operates ou a mesma 
sequSncia de operates repetidamente. Este programa faz exac- 
tamente isto. 

Quando um ser humano observa um algarismo como 12345, e 
o traduz por “doze mil trezentos e quarenta e cinco”, passou os 
olhos sobre o numero da direita para a esquerda, dividindo-o em 
grupos de tr§s. Cada grupo de tres tern um nome — milhoes, mi- 
lhares — e dentro de cada grupo os algarismos sao novamente li¬ 
dos da direita para a esquerda para determinar as centenas, as 
dezenas e as unidades, assim como o mais elevado par de algaris¬ 
mos que pode ser expresso por uma unica palavra — doze, de- 
zoito. Este processo e repetido para cada grupo de tres, acrescen- 
tando em seguida o nome aplicado a cada grupo. 

Para fazer o mesmo trabalho, um programa de computador 
deve seguir as mesmas regras; e como e necess&rio aplicar sempre 
o mesmo metodo para cada grupo, o programa e feito com base 
em subrotinas. 

Este programa imprimir& em palavras o valor de qualquer nu¬ 
mero. Pode tratar ate 14 caracteres, mas faz um arredondamen- 
to no nono algarismo. As frac^oes decimais sSo tratadas ate no- 
ve casas decimais, sujeitas ao mesmo arredondamento. 
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Este programa foi desenvolvido quando um pai exprimiu a 
sua preocupagao devido a. dificuldade do filho ler numeros, mas 
pode ter outras utilidades, em particular no campo educativo. A 
sua parte mais importante e, evidentemente, a subrotina entre as 
linhas 9000 e 9490, que pode ser retirada completa e mserida em 
qualquer programa que exija este tipo de apresentagao dos nu¬ 
meros. Mesmo que o leitor nunca venha a usar este programa, 
vale a pena estuda-lo, quanto mais nao seja para “sentir como 
funcionam estas subrotinas. 

A linha 120 determina se esta ou nao presente uma rracgao, 
saltando para a linha 200 se tal nao acontecer. Se existir uma 
fracgao, a linha 130 coloca a parte inteira na variavel N e trans¬ 
forma o resto na string F$. E tratada a variavel N, e em seguida, 
nas linhas 150 a 180, a parte decimal e lida, um algarismo de ca- 


djt vez. , 

Vejamos agora a subrotina principal. N contem o numero a 

imprimir, e as linhas 9010 a 9030 tratam-na em fungSo das suas 
dimensoes (se observar o ultimo exemplo de execugao, notara 
que tambem e usada notagao cientifica). Se estudar cuidadosa- 
mente esta subrotina verificara que, dai em diante, o programa 
elimina factores de dez a fim de descobrir o maior numero que 
pode ser expresso por uma palavra unica. Consideremos o exem- 
plo 12345. A linha 9030 provocara um salto para a linha 9180, 
onde N e armazenado em S, a memoria dos “milhares”. N rece- 
be o valor 12 e a subrotina chama-se a si mesma. 

Desta vez, a linha 9050 provoca um salto para 9300, a partir 
da qual se realiza a impressao da palavra “doze . A RETUK 
da linha 9340 provoca um retorno a instrugao que chamou a ro- 
tina — neste caso a linha 9200, que imprime a palavra ‘ mil . O 
valor original de N e entao recuperado da variavel S; dimmuem- 
-se os milhares, e repete-se todo o processo. 

Recomendo novamente ao leitor que execute este programa 
v&rias vezes, usando numeros diferentes. A experiencia dir-lhe-a 
mais sobre o uso de subrotinas do que um milhao de palavras. 


Lists de variaveis 

N Numero a imprimir 

N1 Memoria temporaria de N 


F$ String da fracgao decimal 

F Comprimento de F$ 

X Contador digital 

B Memoria dos bilioes 

M Memoria dos milhoes 

S Memoria dos milhares 

H Memoria das centenas 

D Contador geral 

A$ Palavra a imprimir 


Listagem do programa 

0010 PRINT TAB(15),“ESCREVER NUMEROS” 

0020 PRINT TAB(15),“ = = = = = = = = = = =” 

0030 PRINT 

0040 PRINT “Este programa imprimira em palavras o 
valor”; 

0050 PRINT “de qualquer numero. Sao tratados ate 14 ”; 
0060 PRINT “algarismos, com um arredondamento no 
nono. 

0070 PRINT “As fracgoes decimais sao tratadas ate a ”; 

0080 PRINT “nona casa, com o mesmo arredondamento.” 
0100 PRINT :INPUT “Escreva um numero”,N 
0120 IF N = INT(N) 200 

0130 N1 = INT(N):F$ = STR$(N-N1):F = LEN(F$):N = N1 
0140 GOSUB 9000: PRINT “ virgula ”; 

0150 FOR X = 3 TO F 

0160 IF MID$(F$,X,1) = “0” THEN PRINT “zero 
GOTO 180 

0170 N = VAL(MID$(F$,X,l)):GOSUB 9000 

0180 NEXT X:GOTO 110 

0200 GOSUB 9000:GOTO 110 

9000 REM Rotina para imprimir os numeros 

9010 IF N>1E9 THEN 9060 

9020 IF N>1E6 THEN 9120 

9030 IF N>1E3 THEN 9180 

9040 IF N>99 THEN 9240 

9050 GOTO 9300 

9060 B = N:N = INT(N/1E9) 
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9070 GOSUB 9000 
9080 PRINT “bilioes”; 

9090 N = B-INT(B/1E9)*1E9 
9100 IF N = 0 THEN RETURN 
9110 PRINT 

9120 M = N:N = INT (N/1E6) 

9130 GOSUB 9000 
9140 PRINT “milhoes”; 

9150 N = M-INT(M/1E6)*1E6 
9160 IF N = 0 THEN RETURN 
9170 PRINT 

9180 S = N:N = INT (N/1E3) 

9190 GOSUB 9000 
9200 PRINT “milhares”; 

9210 N = S-INT(S/1000)*1000 
9220 IF N = 0 THEN RETURN 
9230 PRINT 

9240 H = N.N = INT (N/100) 

9250 GOSUB 9300 
9260 PRINT “ 

9270 N = H-INT (H/100)*100 
9280 IF N = 0 THEN RETURN 
9290 PRINT “,e”; 

9300 RESTORE 

9310 IF N>19 THEN 9420 

9320 FOR D = 1 TO N + 1 

9330 READ A$:NEXT D 

9340 PRINT A$;“ ”;:IF N<21 THEN RETURN 

9350 N = INT (N/10)*10 

9360 IFN = 0THEN RETURN 

9370 GOTO 9300 

9420 FOR D = 1 TO INT(N/10) + 19 

9430 READ A$:NEXT D 

9440 PRINT A$;“e”;:N = N-INT(N/10)*10 

9450 IF N = 0 THEN RETURN 

9460 GOTO 9300 

9465 DATA cem, duzentos, trezentos, quatrocentos, qui- 
nhentos, seiscentos, setecentos, oitocentos, novecentos 
9470 DATA um, dois, tres, quatro, cinco, seis, sete, oito, 
nove 


9480 DATA dez, onze, doze, treze, catorze, quinze, dezas 
seis, dezassete, dezoito, dezanove 
9490 DATA vinte, trinta, quarenta, cinquenta, sessenta, se 
tenta, oitenta, noventa 

Exemplo de execufao 

Escreva um numero?2 
dois 

Escreva um numero? 34,1 
trinta e quatro virgula um 
Escreva um numero? 18 
dezoito 

Escreva um numero? 123 

cento e vinte e tres 

Escreva um numero? 23456 

vinte e trSs mil quatrocentos e cinquenta e seis 

Escreva um numero? 9.87654312E13 

noventa e oito mil, setecentos e sessenta e cinco bilioes quatro 
centos e trinta e um milhoes, duzentos mil 

READY 
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XVI 


PARES (3,5 K) 

Trata-se de uma aplicagao a computador de um conhecido jo- 
go de cartas em Que estas sao baralhadas e colocadas sobre a me 
sa viradas para baixo. Os jogadores podem virar duas cartas si- 
multaneamente, e se forem um par o jogador retem-nas em seu 
poder e joga de novo. Se nSo sao um par, sap novamente viradas 
para baixo e o jogador seguinte continua. £ um excelente teste 

de memoria e um jogo agradavel. 

O programa utiliza uma matriz B para armazenar as cartas. 
Cada elemento cont&m o valor da carta, ou zero se o espa^o cor- 

respondente estiver vazio. . 

Usei a fungSo CHR$(X) bastante neste programa. E pena que 
a industria de microcomputadores ainda nao tenha estabelecido 
nenhum tipo de norma para a resposta a caracteres de impress&o 
na extremidade inferior do codigo ASCII, porque esse facto 
obriga a fazer adapta^oes quando se transfere um programa de 
uma m&quina para outra. No entanto, se conhecer bem a sua 
m&quina, nao deve ter dificuldades em traduzir as minhas instru- 
goes, 

O programa come?a no modo “scroll”, se bem que pude&se 
igualmente iniciar-se em modo pagina. Utiliza-se um array A$ 
para guardar os nomes dos jogadores, sendo em seguida P re ^" 
chida a matriz 6x6 com pares de valores, cuja posi^ao e escolhi- 
da aleatoriamente. Se quiser, pode aumentar a dimensao desta 
matriz. A proposito, resolvi incluir o ayiso da linha 220 porque 
os principiantes ficam normalmente ansiosos quando b compu¬ 
tador n&o responde imediatamente. 

O valor da carta 6 escolhido na linha 250, que produz um nu- 
mero aleatbrio na gama 65 a 80, ou o equivalente de A a Z no co¬ 
digo ASCII. O posicionamento aleatorio e feito pelas lmhas 270 

a 300. 
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Quando todos os espagos da matriz forem preenchidos, a li¬ 
nha 320 limpa o visor, coloca o terminal em modo pagina e desli- 
ga o cursor. A linha 1000 faz o retorno do cursor invisivel, e em 
seguida e impressa a posi^ao de todas as cartas, deixando um es- 
pago em branco no caso de ter sido removida uma carta. A linha 
1096 limpa o visor, perguntando-se em seguida ao jogador qual 
a carta que deseja virar. 

O metodo usado para revelar a carta correcta consiste em ia- 
zer o retorno do cursor de tal modo que o ponto de partida seja 
conhecido, moven lo-o para baixo o numero de linhas apropria- 
do e depois fazendo-o mover-se ao longo do visor de modo a fi- 
car directamente sobre o “ + 99 impresso. Neste ponto imprimi^ 
mos o codigo ASCII desse elemento da matriz. Como tudo isto e 
feito em cerca de um segundo, com o cursor desligado, o sinal + 
parece transformar-se magicamente numa letra (infelizmente 
nao e possivel mostrar isto na saida de impressora). 

Se desejar (ou se for forgado a isso porque nao consegue co- 
mutar a resposta do seu terminal) pode simplificar o programa 
um pouco omitindo todas as ordens CHR$. 


Lista de variaveis 


Q$ 

String de entradas 

P 

Numero total de jogadores 

A$(P) 

Nomes dos jogadores 

C9 

Numero de cartas ainda em jogo 

B(X,Y) 

Matriz das cartas 

L 

Contador de pares de cartas 

W 

Valor ASCII da carta 

D 

Contador geral 

I 

Numero de linha da carta 

J 

Numero de coluna da carta 

C 

Escolha do jogador (primeira ou segunda) 

X 

Escolha de linha pelo jogador 

Y 

Escolha de coluna pelo jogador 

A1 

Guarda o X da primeira carta 

A2 

Guarda o Y da primeira carta 
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C(X) Apresentagao de duas cartas 

S(X) Array das pontuagoes dos jogadores 


Listagem do programa 

0100 PRINT :PRINT 

0110 PRINT TAB(15);“PARES” 

0120 PRINT TAB(15)“-” 

0130 PRINT 

0140 INPUT “Deseja instru?6es”,Q$ 

0150 IF LEFT$(Q$,1) = “S” THEN GOSUB 9000 
0160 P = 1:C9 = 36 

0170 PRINT “NOME DO JOGADOR N.”;P;“ 

0180 INPUT A$(P) 

0190 IF A$(P) = “ ”THEN P = P-1: GOTO 210 

0200 P = P + 1 :GOTO 170 

0210 PRINT:PRINT 

0220 PRINT “Estou ocupado — ja volto” 

0230 DIM B (6,6) 

0240 FORL = 1 TO 18 
0250 W = INT(RND(0)*26 + 65) 

0260 FOR D = 1 TO 2 
0270 I = INT(RND(0)*6 + 1) 

0280 J = INT(RND(0)*6 + 1) 

0290 IF B(I,J)<>0 THEN 270 

0300 B(I,J) = W 

0310 NEXT D:NEXT L 

0320 PRINT CHR$(25); CHR$(25);CHR$(5); 

0990 FOR P = 1 TO P 
1000 PRINT CHR$(16); 

1010 PRINT TAB(10);“eis as cartas — ” 

1020 PRINT 

1030 PRINT “ 1 2 3 4 5 6”; 

1040 FOR I = 1 TO 6:PRINT I;:FOR J = 1 TO 6 

1050 IF B(I,J) 0 THEN PRINT “ +”;:GOTO1070 

1060 PRINT “ ”;:GOTO 1070 

1070 NEXT J:PRINT:NEXT I 

1090 PRINTA$(P1);“—” 


1095 FOR C = 1 TO 2 

1096 PRINT CHR$(22);“ ”;CHR$(5); 

1100 INPUT “Numero de linha, numero de coluna”,X,Y 

1101 PRINT CHR$(5);IF C=1 THEN A1=X:A2 = Y: 
GOTO 1110 

1102 IFXOA1 THEN 1110 

1103 IF Y OA2 THEN 1110 

1104 PRINT CHR$(11);CHR$(22); 

1105 PRINT ‘ ‘Acabou de ver essa carta! ’ ’ 

1106 PRINT CHR$(5);: GOTO 1100 
1110 IF B(X,Y)<>0 THEN 1200 
1120 PRINT CHR$(11);CHR$(22) 

1130 PRINT “Essa carta jafoitirada”:GOTO 1106 
1190 REM — Revelar carta 
1200 PRINT CHR$(16); 

1210 FOR 1 = 1 TOX + 2 

1220 PRINT CHR$(10);:NEXT I 

1230 FOR J = 1 TO Y*4-2 

1240 PRINT CHR$(09);:NEXT J 

1250 PRINT “ ”:CHR$(B(X,Y)) 

1255 C(C) = B(X,Y) 

1260 PRINT CHR$(16) 

1270 FOR 1 = 1 TO 10 

1280 PRINT CHR$(10);:NEXT I 

1290 NEXT C 

1295 REM — Lance terminado. Urn par? 

1300 IF C(1) = C(2) THEN 1350 

1305 FOR W = 1 TO 50:NEXT W:REM Pausa 

1310 NEXT PI 

1320 GOTO 990 

1350 PRINT “UM PAR! HFICA COM”; 

1355 B(A1,A2) = 0:B(X,Y) = 0 
1360 S(P1) = S(P1)+1 
1370 PRINT S(P1) 

1380 C9 = C9-2: IF C9< = 0 THEN 2000 
1390 PRINT “OUTRA VEZ, ”;A$(P1);“!” 

1400 GOTO 1000 
2000 PRINT :PRINT 

2010 FORX = 1 TO 64:PRINT “ = ”;:NEXT X 
2020 PRINT CHR$(14);:PRINT 
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2030 PRINT “PONTUACOES FINAIS —” 

2040 FOR X = 1 TO P 

2050 PRINT :PRINTA$(X);“ ”;S(X) 

2060 NEXT X:END 

9000 PRINT “Este jogo ilustra um familiar jogo de cartas. 
9010 PRINT “Vou apresentar-lhe 36 cartas viradas para 
baixo 

9020 PRINT “podendo cada jogador virar duas cartas de 
cada”; 

9030 PRINT “vez. Se forem um par, sao removidas pelo 
jogador 

9040 PRINT “e este pode jogar de novo. O vencedor e aquele 
9050 PRINT “que consegue maior mimero de pares — e 
aquele 

9060 PRINT ‘ ‘que tem a melhor memoria. ’ ’ 

9070 PRINT “Para receber uma carta, escreva o numero da 
9080 PRINT “linha, uma virgula, e o numero da coluna.” 
9090 INPUT “Carregue em RETURN para come?ar...”,Q$ 
9100 RETURN 


Exemplo de execu^ao 

Deseja instru?oes? Nao 
NOME DO JOGADOR N. 1 JOAO 
NOME DO JOGADOR N. 2 MARIA 
NOME DO JOGADOR N. 3 MANUEL 
NOME DO JOGADOR N. 4 

Estou ocupado — ja volto 
Eis as cartas — 


UM PAR!!! FICA COM 3 
OUTRA VEZ, MANUEL! 

Eis as cartas — 

MANUEL — Numero de linha, numero de coluna? 5,1 

Numero de linha, numero de coluna? 6,1 

UM PAR!!! FICA COM 4 
OUTRA VEZ, MANUEL! 

Eis as cartas — 

MANUEL — 

UM PAR!!! FICA COM 9 
OUTRA VEZ! 

Eis as cartas — 

MANUEL — Numero de linha, numero de coluna? 6,3 
Numero de linha, numero de coluna? 6,5 
UM PAR!!'.FICA COM 10 


JOAO 1 
MARIA 7 
MANUEL 10 


JOAO — Numero de linha, numero de colunas? 1; 1 
Numero de linha, numero de coluna? 1,2 
Eis as cartas — 

Numero de linha, numero de coluna? 6,4 
Numero de linha, numero de coluna? 2,2 
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XVII 

LEITURA RAPIDA (5 K) 

Encontramos agora um programa de concepgao extremamen- 
te simples, mas que requer uma quantidade de memoria razod- 
vel. De cada vez que o utilizador carrega na tecla RETURN, o 
visor e limpo e e apresentada uma frase durante alguns momen- 
tos, sendo apagada em seguida. Pede-se entao ao utilizador que 
escreva aquilo que leu. Ao fim de 10 frases, o tempo durante o 
qual a frase e apresentada e ajustado para mais ou menos, sendo 
todo o processo repetido. Quando o utilizador resolve abando- 
nar o programa, recebe uma pontuagao de acordo com a sua ve- 
locidade de leitura. 

A execugao e de tal modo simples que nao inclui nenhum 
exemplo no final da listagem. Este e o unico programa do livro 
em que n&o o fiz, dado que o considerei desnecess&rio. 

As frases escolhidas encontram-se evidentemente contidas em 
instrugOes DATA, podendo facilmente ser alteradas. O progra¬ 
ma escolhe um numero aleatorio na gama 1 a 20, escolhendo e 
apresentando portanto uma das primeiras vinte frases. O tempo 
durante o qual a frase se mantem no visor e determinado pelo 
valor da vari&vel T, que sera alterado mais tarde. A linha 1020 
limpa o visor e, juntamente com os espagos impressos pela linha 
1050, coloca a frase num local bem visivel do visor. * 

A linha 1070 conta muito simplesmente at£ ap valor previa- 
mente definido, e se o seu computador possui uma veloeidade de 
execugao maior ou menor do que o meu pode ajustar o valor de 
T, na linha 35. Tente apresentar a frase durante cerca de 1,5 se- 
gundos, depois do que sera apagada pela linha 1080. 

As linhas 1180 e 1185 consideram a possibilidade de o utiliza¬ 
dor responder em maiusculas, e se a comutagao de um modo pa¬ 


ra outro for aborrecida as frases e palavras das linhas DATA po- 
dem ser todas escritas em maiusculas. 

A linha 1190 determina se a pontuagao indica a necessidade de 
aumentar ou diminuir o tempo durante o qual cada frase se en- 
contra visivel, sendo T ajustado em fungao disso nas linhas 1200 
ou 1220. 

Quando se abandona o programa, a linha 9000 calcula a pon- 
tuag&o final a partir da ultima veloeidade considerada, da ultima 
pontuagao e de um pequeno valor aleatorio — se bem que este 
possaser omitido. 

A16m de constituir um obvio teste de veloeidade de leitura, o 
programa exige um pouco da nossa memoria e do nosso conheci- 
mento do teclado. Ilustra igualmente uma desvantagem da BA¬ 
SIC como linguagem de programagao: a entrada deve ser exacta- 
mente igual. Consideremos por exemplo a frase “movimento 
contr&rio aos ponteiros do relorgio ,> . Dever-se-a penalizar um 
utilizador que escreva dois espagos entre as palavras, ou se es- 
quega de um hifen entre palavras que o usem? A BASIC fa-lo-a 
certamente... 


Lista de vari&veis 


T Tempo 

S Pontuagao 

W Palavra ou frase apresentada 

Q$ String de entradas 

X Numero aleatorio 

Y Contador geral 

T1 Contador de tempo 

A$ Frase impressa 

P Indicador da frase 

D Pontuagao 


Listagem do programa 

0010 PRINT TAB( 12),“LEITURA RAPIDA” 
0020 PRINTTAB(12);“ = = = = = = = = =:” 
0030 PRINT 
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0035 T = 40 

0040 PRINT “Neste jogo, vou apresentar uma palavra ou 
frase ”; 

0050 PRINT “durante pouco tempo. Escreva em seguida o 
que ”; 

0060 PRINT “viu. Uma folha de papel e um Idpis pode 
rHo ”; 

0070 PRINT “ser-lhe uteis, mas por favor note que nao tera 
0080 PRINT “tempo suficierlte para copiar tudo.” 

0090 PRINT 

0110 PRINT “Por favor escreva em minusculas. ” 

0120 INPUT “Carregue em RETURN para come?ar...”,Q$ 
0150 PRINT:PRINT:PRINT “Obrigado. Vamos comegar. ” 
0160 PRINT “Vou dar-lhe dez frases e depois indicar a sua ”; 
0170 PRINT “ pontua?ao. ” 

0180 PRINT:PRINT “Observe com cuidado! Da proxima 
vez que ’ ’; 

0190 PRINT “carregar a tecla RETURN, escrevo uma frase 
0200 PRINT “ exactamente a meio do visor. ” 

0210 PRINT “Ca vamos — ” 

0500 S = 0 

1000 FOR W = 1 TO 10:INPUT “Carregue RETURN para 
come 9 ar...”,Q$ 

1010 X = INT(RND(0)*20) + 1 :FOR Y = 1 TO X:READ 
A$:NEXT Y 

1020 PRINT CHR$(25);CHR$(25);PRINT:PRINT:PRINT:- 
PRINT 

1050 PRINT “ ”;A$ 

1060 REM — Temporizag^o 
1070 FOR T1 = 1 TO T::NEXT T1 
1080 PRINT CHR$(25);CHR$(25) 

1090 PRINT ‘ ‘Por favor escreva o que le... ” 

1100 INPUT Q$ 

1110 IF Q$ = A$ THEN 1140 
1120 PRINT “NSo esta correcto.” 

1130 GOTO 1150 

1140 PRINT “CORRECTO!”:S = S + 1 
1150 NEXT W 

1160 PRINT :PRINT “A sua pontuas£o foi ”;S;“ num 
m&ximo de 10.” 


1170 INPUT “Tentede novo”,Q$ 

1180 IF LEFT$(Q$,l)=“n” THEN 9000 
1185 IF LEFT$(Q$,1) = “N” THEN 9000 
1190 IF S>5 THEN 1210 

1195 PRINT “E melhor dar-lhe mais tempo paraler...” 

1200 T = T + INT(T/3) 

1205 RESTORE :P = 0:S = 0:GOTO 180 

1210 PRINT “E melhor dar-lhe menos tempo para ler...” 

1220 T = INT(T*6):GOTO 1205 

1310 DATA a drvore grande, o meu velho gato, a casa branca 
1315 DATA pobre gatinho, doi-lhe a pata 
1320 DATA pobre velhota, cabelos brancos e ar cansado 
1325 DATA tres tordos, quatro grandes amigos, vinte sapos 
1330 DATA vestidos de noite, comprido lapis verde 
1335 DATA cinco sujeitos famosos, velha mala de couro, 
bilhete de comboio 

1360 DATA um enorme rochedo cinzento, bonito espanador, 
erro de pilotagem 

1365 DATA bilhetes de autocarro, cinzento esverdeado e 
oleoso 

1370 DATA indigena selvagem, agua caindo, queda de &gua 
1375 DATA uma sandwich castanha, molho de salada, salada 
fria 

1380 DATA sandwich de presunto, veleiro branco, ilhas do 
tesouro 

1385 DATA sandwich de presunto, cabras montanhesas, tres 
carneiros lanudos 

1390 DATA velho casaco gasto, sobretudo co?ado, cria de 
leoa 

1395 DATA um horrivel monstro, oper&rios sujos, erva 
crescida 

1405 DATA presunto cortado, bebe gritando, marinheiros no 
porto, carpinteiro naval 

1420 DATA fatias de cebola, fantasmas rindo, aluno estupido 
1430 DATA dias ensolarados, folgas de material, pegas mal 
presas 

1440 DATA m&s colheitas e ratos, relogio avariado, algumas 
pistas 

1450 DATA na posig&o correcta, adivinhe a palavra misteriosa 
1460 DATA um grande desafio, pris^o de seguran?a 
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1470 DATA avaliar a resposta, patrulhada por guardas 
1480 DATA movimento para tras, porcas, anilhas e parafusos 
1490 DATA martelo epratos, peixe quente e batatas 
1500 DATA pao bem tostado e quente, prateleira rosa com 

livros 

1510 DATA movimento inverso, versSo alfabetica 
1520 DATA estudos estrategicos, gestao economica 
1530 DATA praticas contraproducentes, relogio avariado 
1540 DATA melhorar a produgao, acrobacia na televisao 

1550 DATA computador estupido, computador amigo 

1560 DATA diferentes areas de jogo, acrobacia na televisao 
1570 DATA molho de tomate, torradas com manteiga, 

vinagrete 

1580 DATA mar, areia e diversao, terrenos diferentes 
1590 DATA bater as portas, pobres e desamparados 
1600 DATA crise internacional, velhas peugas cinzentas 
1610 DATA duplique a pontuagao, perturbe um conde 
1620 DATA retire nove numeros, melhore noventa bombas 
1630 DATA simbolos quimicos, retortas de laboratorio 
1640 DATA trSs pistas diferentes, tres camioes que diferem 
1650 DATA velocidade vertical decente, velocidade de 
descida na vertical 

1660 DATA imaginative e exigente, exercicios de 
investigagao 

1670 DATA medido diferentemente, diferente medida 
1680 DATA escolha anual geral, tecnologia indiscutida 
1690 DATA construgao profissional, substituifao protegida 
1700 DATA publica?ao quinzenal, completa documentagSo 
1710 DATA completamente revisto, extensivamente revisto 
1720 DATA literatura educativa, designa?ao semelhante 
1730 DATA material copiado, analise de shocks; 

1740 DATA perifericos de computador, necessidade 
apropriada 

1750 DATA direitos pagos, disparate sem&itico 
1760 DATA duplicado para m&kima eficiencia 
1770 DATA material original pode ser reimpresso 
1780 DATA virtualmente todos os fabricates 
1790 DATA estudante dedicado e ambicioso 
1800 DATA frustrado e desinteressado 
1810 DATA completamente revisto anualmente 
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1820 DATA imediato e autoritario 

1830 DATA incompatibilidade de servigos 

1840 DATA boletins periodicos de negocios 

1850 DATA servigo inesperadamente eficiente 

1860 DATA tecnicas de gestao financeira 

1870 DATA psicologicamente prejudicial 

1880 DATA apagado transcendentalmente 

1890 DATA acidentalmente dactilografado 

1900 DATA suculenta e senslvel feminista 

1910 DATA empresa extraordinariamente dramatica 

1920 DATA aplicagbes e desenvolvimentos 

1930 DATA gabinete creme agradavel 

9000 D = INT((5000/T) + (1000*S/T) + RND(0)* 10)) 

9010 PRINT: PRINT 

9020 PRINT “A sua pontuagao final foi ”;D 
9030 PRINT “Adeus!” 

9040 PRINT: PRINT 
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XVIII 

TICKLE (3 K) 

Este programa baseia-se num jogo comercial no qual as crian- 
gas se atam a si proprias fazendo nos ao mesmo tempo que ten- 
tam por as maos, pes, etc., em marcas sobre urn plastico. Esta 
adaptagdo foi sugerida por um amigo que encontrou um progra¬ 
ma semelhante numa revista americana, de autor desconhecido. 
O jogo e bastante divertido para crian?as quando existem nume- 
ros aproximadamente iguais de rapazes e raparigas, mas nao ha 
qualquer razao para “enganar” o programa transformando-o 
num jogo unisexo chamando a parte das raparigas rapazes e vi¬ 
ce-versa. Nao ser& necessario acrescentar que tambem pode ser 
divertido para adultos. 

A linha 240 permite uma disparidade de um entre rapazes e ra¬ 
parigas; a “flag” F alterna entre -1 e +1. Para alem disto o pro¬ 
grama e bastante simples. 

Lista de variaveis 

B Numero de rapazes 

G Numero de raparigas 
B$(X) Array com nomes de rapazes 
G$(X) Array com nomes de raparigas 
A$(X) Array de partes activas 
P$(X) Array de partes passivas 
F Flagrapaz/rapariga 
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Listagem do programa 

0100 DATA mEo esquerda, mao direita, cotovelo esquerdo, 
cotovelo direito 

0110 DATA joelho esquerdo, joelho direito, pe esquerdo, pe 
direito 

0120 DATA ombro esquerdo, ombro direito, costas, cintura 
0130 DATA perna esquerda, perna direita, brago esquerdo, 
brago direito 

0140 DATA anca esquerda, anca direita 
0150 PRINT :PRINT:PRINT 
0160 PRINT TAB(12);”TICKLE” 

0170 PRINT TAB(12);“-” 

0180 PRINT 

0190 PRINT ‘ ‘Este jogo deve ser jogado por um numero ’’; 
0200 PRINT “igual de rapazes e raparigas.” 

0210 PRINT 

0220 INPUT “Quantos rapazes estao a jogar’’ ,B 
0230 INPIRT “Quantas raparigas estao a jogar”,G 
0240 IF ABS(B-G)< = 1 THEN 0300 
0250 PRINT “E NECESSARIO MAIS ”; 

0260 IF B-G<0 THEN PRINT “RAPAZES!”:GOTO 0280 
0270 PRINT “RAPARIGAS!” 

0280 PRINT “VA BUSCA-LOS(AS) — EU ESPERO” 

0290 GOTO 210 

0300 PRINT “Por favor indique nomes dos rapazes —” 

0310 FOR X = 1 TO B 

0320 PRINT “Rapaznumero ”;X;“ — 

0330 INPUT B$(X):NEXT X 
0340 PRINT :PRINT:PRINT 

0350 PRINT “obrigado. Agora os nomes”; 0360 PRINT 
“das raparigas —” 

0370 FORX=l TOG 

0380 PRINT “Rapariga numero ”;X;“ —” 

0390 INPUT G$(X):NEXT X 
0400 PRINT :PRINT 
0410 PRINT “pbrigado.” 

0420 PRINT “E necessario um arbitro para este jogo.” 

0430 PRINT “ Vou indicar uma acgao de cada vez ”; 

0440 PRINT “sempre que o arbitro carregar em RETURN. ”; 
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0450 PRINT” Osjogadoresdevemrealizaressaacgao ” 
0460 PRINT “e manter cada posigao ate lhes ser dada 
0470 PRINT” outraordem. ” 

0480 PRINT “Vamos comegar...” 

0490 PRINT 
0500 FOR X = 1 TO 8 
0510 READ A$(X) 

0520 NEXT X 
0530 FOR X = 1 TO 10 
0540 READ P$(X) 

0550 NEXT X 
0560 F = 1 

0600 PRINT “Por favor carregue em RETURN” 

0610 PRINT 
0620 INPUT Q$ 

0630 IF F = -1 THEN 800 
0640 REM — escolher rapaz 
0650 X = INT(RND(0)*B + 1) 

0660 REM — parte 

0670 A = INT(RND(0)*8 + 1) 

0680 REM — rapariga 
0690 Y = INT(RND(0)*G + 1) 

0700 REM — parte 

0710 P = INT(RND(0)* 10+1) 

0720 PRINT B$(X);“ — Ponha ”;A$(A); 

0730 PRINT ” sobre ”;P$(P);“ de ”;G$(Y) 

0740 F = F: PRINT: PRINT: GOTO 600 
0800 REM — escolher rapariga activa 
0810 Y = INT(RND(0)*G + 1) 

0820 A = INT(RND(0)*8 + 1) 

0830 X = INT(RND(0)*B + 1) 

0840 P = INT(RND(0)* 10) + 1) 

0850 PRINT :PRINT 

0860 PRINT G$(Y);“ — Ponha ”;A$(A);“ sobre 
0870 PRINT P$(P);“ de ”;B$(X) 

0880 F = -F:PRINT:PRINT:GOTO 600 


Exemplo de execugao 

Este jogo deve ser jogado por um numero igual de rapazes e 
raparigas. 

Quantos rapazes estao a jogar? 2 
Quantas raparigas estao a jogar? 3 

Por favor indique nomes dos rapazes 
Rapaz numero 1 — Joao 
Rapaz numero 2 — Manuel 

Obrigado. Agora os nomes das raparigas 
Rapariga numero 1 — Maria 
Rapariga numero 2 — Isabel 
Rapariga numero 3 — Ana 

Obrigado. 

E necessario um arbitro para este jogo. 

Vou indicar uma acgao de cada vez sempre que o arbitro 
carregar em RETURN. Os jogadores devem realizar essa 
acgSo e manter cada posigao ate lhes ser dada outra ordem. 
Vou comegar... 

Por favor carregue em RETURN 

Joao — Ponha cotovelo esquerdo sobre ombro esquerdo de 
Ana 

Por favor carregue em RETURN 

Isabel — Ponha mSo esquerda sobre perna esquerda de 
Manuel 

Por favor carregue em RETURN. 

Manuel — Ponha joelho esquerdo sobre cintura de Isabel 
Por favor carregue em RETURN 

Ana — Ponha joelho direito sobre brago direito de Manuel 
Por favor carregue em RETURN 
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Joao — Ponha p6 esquerdo sobre ombro direiro de Ana 
For favor carregue em RETURN 

Isabel — Ponha cotovelo direito sobre costas de Manuel 
Por favor carregue em RETURN 


Manuel — Ponha cotovelo direito sobre ombro esquerdo de 
Maria 

Por favor carregue em RETURN 

Maria — Ponha pe esquerdo sobre bra^o esquerdo de Manuel 
Por favor carregue em RETURN 

Manuel — Ponha pe esquerdo sobre ombro direito de Ana 
Por favor carregue em RETURN 

Isabel — Ponha cotovelo esquerdo sobre ombro direito de 
Manuel 

Por favor carregue em RETURN 

Joao — Ponha pe direito sobre anca esquerda de Isabel 
Por favor carregue em RETURN 

Ana — Ponha cotovelo direito sobre a anca esquerda de Joao 
Por favor carregue em RETURN 

Jo&o — Ponha joelho esquerdo sobre bra?o direito de Ana 
Por favor carregue em RETURN 


XIX 

MENSAGENS SECRETAS (3 K) 

E bastante interessante descodificar uma mensagem secreta — 
vS-la revelar-se letra a letra, salpicada de palavras estranhas aqui 
e ali. Este programa utiliza este interesse para apresentar 26 pro- 
blemas ao utilizador, um para cada letra do alfabeto. Pode-se 
complica-lo ainda mais, de tal modo que quando a mensagem se- 
ja finalmente descodificada uma outra dirija o utilizador para 
um premio escondido. 

A mensagem secreta e guardada nas instru^oes DATA das li- 
nhas 60 a 80, podendo ser facilmente alterada a medida que os 
utilizadores a conseguem descobrir. Se alterar a mensagem, note 
que cada linha e guardada numa unica variavel de string, nao de- 
vendo portanto ter um comprimento superior ao definido pela 
sua vers&o da BASIC. Note ainda que o numero de linhas de da¬ 
dos pode ter de ser alterado na linha 50. No interior da mensa¬ 
gem secreta s6 sao permitidas letras e pontos finais — numeros, 
pontos de interrogagao, etc., nao podem ser usados. 

As linhas 100 a 170 contem as 26 chaves e as respectivas res- 
postas. Se bem que tenha apresentado apenas cidades, e possivel 
substitui-las por qualquer outra coisa. Note uma vez mais que 
nenhuma pergunta ou resposta pode ser mais comprida do que o 
string que a contem. Se por acaso incluir alguma coisa excessiva- 
mente longa, a BASIC trunca-la-a. E obviamente importante 
que existam exactamente 26 perguntas e respostas. 

A fim de poder inserir cada letra por sua vez na mensagem se¬ 
creta, o utilizador deve fornecer a resposta correcta a pergunta 
associada a essa letra. Com alguma malicia, o leitor pode asso- 
ciar as perguntas mais dificeis as letras mais comuns... 

Um possivel melhoramento consistiria em levar o programa a 
ter acesso a um conjunto diferente de mensagens e perguntas em 
disco, se dispuser deste periferico. 
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As strings C$(l) a C$(3) contem a mensagem parcialmente 
descodificada. Ajustei o comprimento das strings para 50 carac- 
teres (na linha 50) a fim de cada linha de mensagem caber numa 
string. Se nao puder fazer isto, tera de dividir as linhas de mensa¬ 
gem com separadores (provavelmente pontos e virgulas) e ajus- 
tar a vafiavel L em fungSo disso. 

O array A regista as letras que foram descodificadas. Caaa 
elemento inicia-se pelo valor 0, transformando-se em 9 quando a 
chave respectiva e descoberta. , 

Os programadores principiantes devem observar as fun?oes de 
string que surgem a partir da linha 220. Nesta linha observa-se 
separadamente cada caracter de T$, inserindo-se em D$ para 
exame. Se se trata de um espa?o ou um ponto final, e simples- 
mente acrescentado no final da string. Se nao e, ou seja, se se 
trata de uma letra, e necessario verificar o array A. O codigo AS¬ 
CII do caracter variara entre 65 para A e 90 para Z; subtramdo a 
ele 64 obtemos uma variagao entre 1 e 26, equivalente aos 26 ele- 
mentos do array de comparagao. Se o conteudo do elemento nao 
e zero, a chave ja foi resolvida e portanto o caracter e acrescenta¬ 
do a C$(X); senao acrescenta-se urn ponto. 

O leitor deve ser capaz agora de compreender o funcionamen- 

to das linhas 340 e 360. 


Lista de variaveis 

Q$ String de entradas 

L Numero de linhas DATA na mensagem 

A(X) Array correspondente a cada letra 

X Contador 

C$(X) Linhas da mensagem descodificadas ou parcialmen- 
te descodificadas 
T$ String de transference 

Y Contador 

D$ Um caracter unico de T$ 

Q Numero de letra de Q$y 1 -26 

R$ Pergunta ou chave 

S$ Resposta correcta 

Z Contagem de chaves resolvidas 


Listagem do programa 

0010 PRINT “MENSAGENS SECRETAS” 

0020 PRINT “============” 

0030 INPUT “Deseja instrugoes”,Q$ 

0040 IF LEFT$(Q$,1) = “S” GGSUB 1000 
0050 L = 3:STRING = 50 

0060 DATA APARECE A ENTRADA DO ZOO ANTES 
DE 

0070 DATA NASCER O SOL. TRAZ UMA ARMA. O 
0080 DATA JOAO SUSPEITA DE NOS. MANUEL. 

0090 DATA EUA, WASHINGTON, ESCOCIA, 
EDINBURGH, FRANCA, PARIS 
0100 DATA ALEMANHA OCIDENTAL, BONA, 
CANADA, OTTAWA, QUENIA, NAIROBI 
0110 DATA RUSSIA, MOSCOVO, FINLANDIA, 
HELSINQUIA, TURQUIA, ISTAMBUL 
0120 DATA INGLATERRA, LONDRES, IRLANDA, 
DUBLIN, CHINA, PEQUIM 
0130 DATA BRASIL, BRASILIA, SUECIA, 
ESTOCOLMO, ROMENIA, BUCARESTE 
0140 DATA GALES, CARDIFF, JAPAO, TOQUIO, 
AUSTRALIA, CAMBERRA 
0150 DATA AFEGANISTAO, CABUL, VENEZUELA, 
CARACAS, PERU, LIMA 

0160 DATA MEXICO, CIDADE DO MEDIXO, ITALIA, 
ROMA, ESPANHA, MADRID 
0170 DATA COLOMBIA, BOGOTA, B^LGICA, 
BRUXELAS 
0180 DIM A(26) 

0190 REM — Actualizar mensagem descodificada 
0200 RESTORE ;FOR X= 1 TO L:C$(X) = 

0210 READTS 

0220 FOR Y= 1 TO LEN(T$):D$ = MID$(T$,Y,1) 

0230 IF D$ = THEN C$(X) = C$(X) + D$:GOTO 270 

0240 IF D$ = “ ” THEN C$(X) = C$(X) + D$:GOTO 270 
0250 IF A(ASC(D$)-64) = 0 THEN C$(X) = C$(X) + “.”: 
GOTO 270 

0260 C$(X) = C$(X) + MID$(T$,Y, 1) 

0270 NEXT Y:NEXT X 
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Exemplo de execugao 


0280 REM — Imprimir forma codificada 
0290 PRINT :FOR X= 1 TO L:PRINTC$(X):NEXT X 
0300 REM — Procurar e verificar solugao 
0310 PRINT 

0320 INPUT “Que letra quer experimentar ”,Q$ 

0330 Q = ASC(Q$)-64:IFQ< = 0 THEN 350 
0340 IF Q< = 26 THEN 360 

0350 PRINT “Por favor escreva uma letra (A-Z)”:GOTO 
320 

0360 IF A(Q)<>0 PRINT “Essa chave ja foi resolvida”: 
GOTO 320 


0370 REM Descobrir e imprimir pergunta 
0380 RESTORE :FOR X = 1 TO LrREAD R$:NEXT X 
0390 FOR X = 1 TO Q:READ R$,S$:NEXT X 
0400 PRINT “Qual e a capital de ”;R$; 

0410 INPUT A$:IF A$OS$ PRINT “E pena — esta 
errado”:GOTO 320 

0420 PRINT “CERTO! RESOLVEU UMA CHAVE” 

0430 A(Q) = 9:Z = Z + 1 :IF Z<>26 THEN 200 
0440 PRINT: PRINT 

0450 PRINT “&PTIMO! RESOLVEU TODAS AS 
CHAVES!” 

0460 PRINT ‘‘Se conseguir dizer ao paizinho qual e a 
0470 PRINT “ capital do Botswana, ele da-lhe um premio! ” 
0480 END 


1000 PRINT ‘ ‘Este jogo e divertido. Possuo uma mensagem ’ ’; 
1010 PRINT” secreta para voce resolver. Voufevelar ”; 
1020 PRINT “uma letra de cada vez se resolver as ' 4 'aves ”; 
1030 PRINT” que antes lhe apresento. ”; 

1040 PRINT “Por exemplo, apresento-lhe toda as letras 


0150 PRINT “se resolver uma chave, todas as A’s se resolver 
1060 PRINT “outra, etc.” 

1070 INPUT “Carregue em RETURN para comegar...’’,Q$ 
1080 RETURN 


Deseja instrugoes? Nao 


Que letra quer experimentar? A 

Qual e a capital de EUA? NEW YORK 

E pena — esta errado 

Que letra quer experimentar? E 

Qual e a capital de CANADA? OTTAWA 

CERTO! RESOLVEU UMA CHAVE 


Que letra quer experimentar? S 

Qual e a capital de AFEGANISTAO? CABUL 

CERTO! RESOLVEU UMA CHAVE 


F F F 

p C C 

• • kj • I. i 4 4 O * • • 

«•«« S • S ♦ 4 ♦ ♦ 


.E 


..S. 


ES .E 



A.ARECE A ENTRADA DO .00 ANTES DE NASCER O 
SOL. TRA. UMA ARMA. O JOAO SUS.EITA DE NOS. 
MANUEL. 


Que letra quer experimentar? P 

Qual e a capital de GALES? CARDIFF 

CERTO! RESOLVEU UMA CHAVE 

APARECE A ENTRADA DO .00 ANTES DE NASCER O 

SOL. TRA. UMA ARMA. O JOAO SUSPEITA DE NOS. 

MANUEL. 

Que letra quer experimentar? Z 

Qual 6 a capital de BELGICA? BRUXELAS 

CERTO! RESOLVEU UMA CHAVE 
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APARECE A ENTRADA DO ZOO ANTES DE NASCER O 
SOL. TRAZ UMA ARMA. O JOAO SUSPEITA DE NOS. 
MANUEL 

Que letra quer experimentar? V 

Qual e a capital de MEXICO? CIDADE DO MEXICO 

CERTO! RESOLVEU UMA CHAVE 

OPTIMO! RESOL VEU TOD AS AS CHAVES! 

Se conseguir dizer ao paizinho qual e a capital do Botswana, 
ele da-lhe um premini 

READY 


XX 

BARCO A MOTOR (3 K) 

Neste iogo e necessario conduzir um barco num lago.evitando 
obst&culos e as margens. O lago e computadorizado, e portanto 
e quadrado... As boias (obstaculos) sao dispostas de modo dife- 

renteparacadajogo. . _ , 

No inicio, o barco encontra-se no canto superior esquerdo, 

sendo a sua posi?ao marcada por um B; e parte sempre em direp- 
c&o sudeste, aproximando-se do meio do lago. Pode conduzir o 
barco mas so pode para-lo encalhando-o na costa o que custa 
ponto; - ou ficando sem combustivel ao fim de 100 movimen- 
tos. Pode tambem perder pontos no caso de entrar em contacto 

A condu?ao do barco merece ser estudada em detalhe. O rumo 
varia de 0 a 7, sendo 0 equivalente a Norte e prossegumdo em m- 
tervalos de 45 graus ate 7, noroeste. Quando o leme e virado pa¬ 
ra bombordo ou estibordo, mantem-se nessa posi$ao at ® s ® r no " 
vamente endireitado ou rodado no sentido contrario. O barco 
move-se entao em circulo; mas a fim de evitar que o leitor enga- 
ne o computador e se mova em circulo os 100 movimentos, o 
programa nao permitira mais do que sete movimentos sem mu- 
dar de rumo, o que equivale aproximadamente a 360 graus. 

Em cada movimento o utilizador deve escrever uma ou vanas 
ordens, indicadas no quadro ao lado da listagem. A string de en- 
trada e examinada nas linhas 241 a 249, e os punstas nao apre- 
ciarao o metodo; existem certamente outros melhores. No enta 
to, os principiantes em programa?ao compreendem-no certa¬ 
mente melhor, e os que ja tiverem experience saberao escrever 
estas linhas de outro modo. 

Um aviso: ao jogar, nao use mais mapas do que os necessa- 
rinc nnis r.ada um custa-lhe 15 pontos. 
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Devo agradecer a “Personal Computer World” a autorizagao 
para usar este jogo, que foi publicado pela primeira vez em 1979. 


Lisia de variaveis 

D1 Posi<?&o actual, linha 

D2 Posi^ao actual, coluna 

D3 , Rumo (1-7) 

D4 Leme (-1,0, +1) 

A(X,Y)) Matriz do lago, onde 

0 = espa?o 2 = percurso 
1 — barco 3 = boia 
X Contador de linhas 

Y Contador de colunas 

Z Numero aleatorio 0-9 

T Pontua?ao actual 

M Contador de movimentos 

H1 Movimentos com o leme actual 

H Posi?ao do leme 

E Incremento para norte 

F Incremento para leste 


Listagem do programa 

0010 PRINT “BARCO A MOTOR” 
0020 PRINT “Partida...” 

0030 D1 = 1 
0040 D2 = 1 
0050 D3 = 3 
0060 D4 = 0 
0070 DIM A(12,14) 

0080 FOR X = 1 TO 12 
0090 FOR Y = 1 TO 14 
0100 Z = RND(0)*10 
0110 IF Z<9 THEN 140 
0120 A(X,Y) = 3 
0130 GOTO 150 
0140 A(X,Y) = 0 


0150 NEXTY 
0160 NEXT X 
0170 A(l,l)= 1 
0180 T = 0 
0190 M = 0 
0210 GOSUB 1000 
0220 HI =0 

0230 PRINT “ORDEM”; 

0235 A(D1,D2)= 1 

0240 INPUT C$:C$= LEFT$(C$,1) 

0241 IF C$ = “0” THEN 550 
0242 IF C$ = “M” THEN 280 
0243 IF C$ = “H” THEN 320 
0244 IF C$ = “S” THEN 440 
0245 IF C$ = “E” THEN 530 

0246 PRINT “ORDEM NAO ENTENDIDA”:GOTO 240 

0280 REM mapa 

0290 T = T-15 

0300 GOSUB 1000 

0310 GOTO 230 

0320 REM leme 

0330 INPUT “LEME”,C$ 

0332 C$ = LEFT$(C$,1):IF C$ = “L” THEN H = -1: 
GOTO 350 

0334 IF C$ = “R” THEN H-l:GOTO 350 

0336 IF C$ = “C” THEN H = 0:GOTO 350 

0338 PRINT “NAO COMPREENDIDO”:GOTO 330 

0350 IF HOH1 THEN 400 

0360 HI =H1 + 1 

0370 IF Hl< = 7 THEN 400 

0380 PRINT “NAO E PERMITIDO RODAR” 

0385 PRINT “EM CIRCULOS” 

0390 GOTO 33 
0400 HI = 1 
0410 D4 = H 
0420 GOTO 550 
0430 REM Informagao 
0440 T = T-5 

0450 PRINT “POSigAO: “;D1;“,”;D2 
0460 PRINT “RUMO: ”;D3 
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0470 PRINT “LEME: 

0480 IF D4 = -1 THEN PRINT ‘ ‘BOMBORDO 
0490 IF D4 = 0 THEN PRINT “DIREITO” 

0500 IF D4 = 1 THEN PRINT “ESTIBORDO” 

0510 PRINT “PONTUAgAO: ”;T 
0520 GOTO 230 

0530 PRINT “POSigAO FINAL ”;D1;“,”;D2 
0540 GOTO 740 
0550 REMmovimento 

0560 DATA-1,0,-1, x 1,0,1,1,1,1,0,11,0,—1,-1, 1 

0570 D3 = D3 + D4 

0580 IF D3>7 THEN LET D3 = 0 

0590 IF D3 <0 THEN LET D3 = 7 

0600 FOR 1 = 1 TO D3 + 1 

0610 READ E, F 

0620 NEXT I 

0625 RESTORE 

0630 A(D1,D2) = 2 

0640 D1 = D1+E 

0650 D2 = D2 + F 

0652 IF DKCl THEN 720 

0654 IF Dl>12 THEN 720 

0656 IF D2<1 THEN 720 

0658 IF D2>14 THEN 720 

0660 IF A(D1,D2) = 3 THEN 690 

0670 T = T +10 

0674 M = M + 1 

0676 IF M> = 100 THEN 800 

0680 GOTO 230 

0690 PRINT “COLISAO EM ”;D1;“,”;D2 

0700 T = T-50 

0704 D1=D1-E 

0708 D2 = D2-F 

0710 GOTO 230 

0720 PRINT “ENCALHOU!”. 

0730 T = T-100 

0740 PRINT “A SUA PONTUAgAO FOI ”;T 
0750 PRINT 

0755 INPUT “QUER VER O MAPA FINAL”,Q$ 
0756 IF LEFT$(Q$, 1) = “N” THEN 760 


0757 GOSUB 1000 

0760 PRINT “ESCREVA RUN PARA JOGAR DE 
NOVO”; 

0770 END 

0800 PRINT “OPTIMO! TERMINOU A CORRIDA” 

0810 PRINT 

0820 T = T +100 

0830 GOTO 740 

1000 REMmapa 

1010 PRINT 

1020 PRINT ” 12345678901234” 

1030 FOR X = 1 TO 12 
1040 PRINT X; 

1050 IF X< 10 THEN PRINT “ ”; 

1060 FOR Y = 1 TO 14 

1070 IF A(X,Y) = 0 THEN PRINT “ 

1080 IF A(X,Y) = 1 THEN PRINT ” B”; 

1090 IF A(X,Y) = 3 THEN PRINT ”0”; 

1100 IF A(X,Y) = 2 THEN PRINT ” 

1110 NEXTY 
1120 PRINT 
1130 NEXT X 

1140 PRINT “RUMO: ”;D3 
1150 RETURN 

As ordens neste programa sao as seguintes 
0 — nenhuma 
M — mapa 

S — pontuagao e posigao 
E — fimdejogo 
H — leme (com os comandos:) 

L — esquerda 
R — direita 
C — central 
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Exemplo de execu?ao 


Partida... 

RUMO: 3 

Deseja instrucocs? 0 
ORDEM? 0 
ORDEM? 0 
ORDEM? 0 
ORDEM? 0 
ORDEM? 0 
ORDEM? 0 
ORDEM? M 

RUMO: 3 
ORDEM? 0 
ORDEM? 0 
ORDEM? R 
ORDEM? 0 
ORDEM? 0 
ORDEM? 0 
ORDEM? 0 
ORDEM? C 


ORDEM? 0 
ORDEM? M 


RUMO: 0 
ORDEM? 0 
ORDEM? Q 

ORDEM NAO COMPREENDIDA 
0 

ORDEM? 0 
ORDEM? R 
ORDEM? 0 
ORDEM? C 
ORDEM? S 
POSigAO: 4 ,9 
RUMO: 2 
LEME : DIREITO 
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PONTUAgAO: 165 
ORDEM? 0 
ORDEM? 0 
ORDEM? 0 
ORDEM? L 
ORDEM? 0 
ORDEM? 0 
ORDEM? 0 
ORDEM? C 
ORDEM? S 
POSigAO: 1 ,10 
RUMO:6 

LEME: DIREITO 
PONTUAgAO: 240 
ORDEM? MAPA 


RUMO: 6 
ORDEM? R 
ENCALHOU! 

A SUA PONTUAgAO FOI127 
QUER VER O MAPA FINAL? NAO 
ESCREVA RUN PARA JOGAR DE NOVO 
READY 
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que sao 16, sendo lidas aos pares (linha 600), conforme o rumo. 
Por exemplo, o rumo 0 provoca uma transference do primeiro 
par, etc. O rumo 0 equivale a Norte, e o par de incrementos e -1 e 
0. Aplicando k posigao actual, a fiada diminui de 1 e a posigao 
lateral (direita-esquerda) nao e alterada. Quaisquer outras direc- 
goes sao tratadas do mesmo modo. 


XXI 

CA£A A SUBMARINOS (5 K) 

Como o titulo implica, o objectivo deste jogo consiste em-des- 
cobrir e eliminar um submarino inimigo submerso, mas infeliz- 
mente este nao est£ passivo! O inimigo move-se a metade da ve- 
locidade do navio de superficie e pode fazer manobras inespera- 
das. Mais ainda, se consegue atingir o rebordo da area de jogo, o 
leitor perde! Perde tambem se tentar sair da area de jogo, apesar 
de se considerar que est& em mar aberto, ou se gastar todas as 
suas cargas de profundidade. 

Como o inimigo esta submerso, 6 obvio que o leitor nao o ve. 
De facto, a unica maneira de avaliar a sua posigao consiste em 
utilizar o seu ASDIC, instrumento que lhe indica a direcgao po¬ 
lar relativamente a sua posigao actual. Mas resta-lhe uma conso- 
lagao: tal como acontece com o navio de superficie o submarino 
tambem nao pode inverter instantaneamente o seu movimento, 
podendo no entanto alterar o rumo de 45 graus em cada movi¬ 
mento. 

Os rumos sao indicados como no jogo anterior, aplicando-se a 
mesma regra quanto ao uso do leme. Neste jogo, no entanto, o 
seu navio pode rodar em circulos k sua vontade — mas o subma¬ 
rino est k provavelmente a afastar-se entretarjto..., 

O programa utiliza uma forma alternativa de descodificar or- 
dens (nos programas seguintes apresentar-se-to outras). Este 
m£todo requer que o utilizador indique o pumero correspanden- 
te k sua ordem, como no menu de «Aritm6tica», Mas sem ;i poder 
dispor da lista de op$5es. Se utilizar este m£todo, verificara que 
aprende rapidamente as ordens* podendo entretanto recorrer a 
uma lista em papel. 

Os incrementos usados neste jogo e no anterior sao obtidos a 
partir das instrugOes DATA na linha 560. Se as contar verificar& 


Lista de variaveis 

Q$ String de entradas 

D Cargas de profundidade restantes 

D1 PosigSo do contratorpedeiro — linha 

D2 Posigao do contratorpedeiro — coluna 
D3 Rumo do contratorpedeiro 

D4 Leme do contratorpedeiro 

D6 Flag indicadora do langamento de cargas de profun¬ 
didade 

A(X, Y) Matriz da area de jogo, onde 

0 = mar 2 = percurso 

1.« contratorpedeiro 4 = rumo do submarino 

X Cont ador de linhas 

Y Contador de colunas 

51 Posigao do submarino — linha 

52 Posigao do submarino — coluna 

53 Rumo do submarino 

54 Leme do submarino 

B Contador de movimentos 

C Numero da ordem 

H Leme desejado 

I Contador geral 

E Incremento da posigao — norte/sul 

F Incremento da posigao — leste/oeste 


Listagexn do programa 

0010 PRINT “CA£A A SUBMARINOS” 

0020 INPUT “Deseja instrugdes (s-n)”, Q$ 

0030 IF LEFT$(Q$, 1) = “S” THEN GOSUB 2000 
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0040 PRINT “Partida...” 

0045 REM — situagao inicial 

0050 D1 = 1:D2= 1:REM — coordenadas do contratorpedeiro 
0060 D3 = 3:REM — rumo 
0070 D6 = 0:D4 = 0 
0080 DIM A (12,14) 

0085 REM — limparoceano 

0090 FOR X = 1 TO 12:FOR Y = 1 TO 14 

0100 A (X,Y) = 0:NEXT Y:NEST X 

0130 S3 = INT (RND (0) * 7):REM — rumo inicial do submarino 
0150 S4 = 0:REM — leme do submarino 
0160 A (1,1) = 1:REM — marcar posigao do contratorpedeiro 
0170 REM — marcar posigao do submarino 
0180 SI = INT (RND (0) * 12+1):S2 = INT (RND (0) * 
14+ 1):A(S1, S2) = 3 

0210 D = 24:REM cargas de profundidade 

0220 B = 1 :REM contagem dos movimentos do contratorpedeiro 

0230 PRINT: INPUT “Ordem”, C 

0250 C = INT (ABS (C) ):IF 07 THEN 230 

0270 ON C + 1 GOTO 540,280,320,430,530,800,950,990 

0280 REM — display 

0300 GOSUB 1000:GOTO 230 

0320 REM — Mudanga de leme 

0330 INPUT “Mudanga de leme”, H 

0350 IF ABS (H)>1 PRINT “Nao comprendo.”:GOTO 330 

0385 PRINT “Sim, sr. Comandante,”:D4 = H:GOTO 540 

0430 REM — Pedido de informagao 

0450 PRINT “Posigao: ”;D1;“,”;D2 

0460 PRINT “Rumo: ”;D3 

0470 PRINT “Leme: 

0480 IF D4 = -1 PRINT “Bombordo” 

0490 IF D4 = 0 PRINT “Direito” 

0500 IF D4= 1 PRINT “Estibordo” 

0520 GOTO 230 

0530 PRINT “Foradomapaern”;Dl;“,”;D2:GOTO730 
0535 REM — mover contratorpedeiro 
0540 IF D6<>1 THEN 570 ? 

0550 D = D-2:IF D<0 PRINT “Gastas todas as cargas”: 
GOTO 730 

0560 DATA-1,0,-1,1,0,1,1,1,1,0,1,-1,0,-1,-1,-1 


0570 D3 = D3 + D4:REM — Ajustar rumo orientando leme 

0580 IF D3>7 THEN D3 = 0 

0590 IF D3<0 THEN D3 = 7 

0595 REM — Ajustar coordenadas 

0600 FOR I = 1 TO D3 + 1:READ E,F:NEXT I:RESTORE 

0605 A(D1,D2) = 2:REM — Memorizar movimentos 

0610 D1 = D1 + E:D2 = D2 + F:REM — Nova posigao 

0615 IF DKl THEN 720 

0620 IF Dl>12 THEN 720 

0625 IF D2<1 THEN 720 

0630 IF D2>14 THEN 720 

0635 A(D1 ,D2) = 1 :D5 = D5-2: REM — Largar cargas 
0636 REM — Verificar se atingem 
0640 IF DlOSl THEN 710 
0645 IF D20S2 THEN 710 
0650 IF D6<>1 THEN 710:REM — Flag das cargas 
0660 PRINT “Carga de profundidade atinge submarino! 
Ganhou!”:GGTO 750 

0700 REM — Contratorpedeiro move-se duas vezes por cada 
vez do sub. 

0710 B = B+1:IFB< = 2THEN460 

0715 GOTO 1160:REM — Movimento do submarino 

0720 PRINT “Contacto perdido.” 

0730 PRINT “ Perdeu.” 

0750 PRINT:INPUT “Deseja urn ultimo mapa (s-n)”,Q$ 
0760 IF Q$ = “S” COSUB 1000 
0770 END 

0800 REM — Relatorio ASDIC 
0810 IF ABS (D1-S1)>5 THEN 930 
0820 IF ABS (D2-S2)>5 THEN 930 
0830 PRINT “Econadirecgao”; 

0840 IF DKS1 AND D2>S2 PRINT “Sudoeste” 

0842 IF DKS1 AND D2<S2 PRINT “Sudeste” 

0844 IF D1>S1 AND D2>S2 PRINT “Noroeste” 

0846 IF D1>S1 AND D2<S2 PRINT “Nordeste” 

0848 IF D1>S1 PRINT “Norte” 

0850 IFDKS1 PRINT “Sul” 

0860 IF D2>S2 PRINT “Oeste” 

0870 IF D2<S2 PRINT “Leste” 

0880 IF D20S2 THEN 230 
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0890 IF DlOSl THEN 230 
0900 PRINT ‘ ‘Por baixo de nos! ” 

0910 IF DlOSl THEN 230 
0920 IF D6 = 1 THEN 660 
0925 GOTO 230 

0930 PRINT “Ausencia de eco”:GOTO 230 
0950 REM — Cargas de profundidade 
0960 PRINT ‘ ‘Lansar cargas! ” :D6 = 1 :GOTO 230 
0990 PRINT “Cessar fogo!”:D6 = 0:GOTO 230 
1000 REM — display 
1010 PRINT 

1020 PRINT “ 12345678901234” 

1030 FOR X = 1 TO 12:PRINT X; 

1050 IF X<10 PRINT 

1060 FOR Y = 1 TO 14 

1070 IF A(X,Y) = 0 PRINT “ .”; 

1080 IF A(X,Y) = 1 THEN PRINT “ D”; 

1090 IF A(X,Y) = 2 THEN PRINT “ 

1105 IF A(X, Y) = 4 THEN PRINT “ +”; 

1110 NEXT Y:PRINT7NEXT X 

1140 PRINT “Rumo: ”,D3:RETURN 

1160 REM — Movimentos do submarino 

1170 X = RND(0)*10 

1180 IF X>7 THEN S4 = -1 

1190 IF X<3 THEN S4 = 1 

1200 S3 = S3 + S4 

1210 IF S3>7 THEN S3 = 0 

1220 IF S3<0 THEN S3 = 7 

1230 FOR I = 1 TO S3 + 1:READ E,F:NEXT I:RESTORE 

1270 A(S1,S2) = 4:S1 = S1+E:S2 = S2 + F 

1300 IF SKI THEN 1350 

1310 IF Sl>12 THEN 1350 

1320 IF S2<1 THEN 1350 

1330 IF S2>14 THEN 1350 

1340 B= l:GOTO 460 

1350 PRINT “Submarino escapa!”:GOTO 730 
2000 PRINT “ Voce e o Comandante de um contratorpedeiro 
que 

2010 PRINT “ persegue um submarino inimigo. Pode escutar 
o 
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2020 PRINT “ ruido deste com equipamento ASDIC, e tentar 
2030 PRINT “ destrui-lo com cargas de profundidade, mas o 
2040 PRINT “ alcance do ASDIC e limitado e o submarino es 
tA 

2050 PRINT “em movimento. Voce perde se o submarino fugir 

2055 PRINT “ da Area do mapa, ou se ficar sem cargas de 
2060 PRINT “profundidade. Possui 24 cargas, e deve langa- 
-las 

2070 PRINT “ aos pares. ” 

2080 INPUT ‘‘Por favor carregue em RETURN.’’,Q$ 

2090 PRINT “Ordens permitidas: ” 

2100 PRINT “ 0 — Manterleme actual.” 

2110 PRINT “ 1 — Imprimirmapa.” 

2120 PRINT “ 2 — Mudar oleme.” 

2130 PRINT “ 3 — Pedidodeinforma?ao.” 

2140 PRINT “ 4 — Terminar jogo.” 

2150 PRINT “ 5 — Relatorio ASDIC.” 

2160 PRINT “ 6 — Iniciar langamento das cargas.” 

2170 PRINT “ 7 — Terminar lan?amentodecargas.” 

2180 PRINT 

2190 PRINT “Leme — 0=Direito, l=Estibordo, 2=Bombor 
do.” 

2210 PRINT “Os Rumos sao dados por 0-7, sendo 0 Norte e 
2220 PRINT “ aumentando no sentido dos ponteiros do 
relogioem ”; 

2230 PRINT “passos de 54 graus. Sudoeste e portanto rumo 
5.” 

2240 INPUT “Por favor carregue em RETURN”,Q$ 

2250 RETURN 


Exemplo de execu^ao 

Deseja instru?6es? N 
Partida... 

Ordem? 5 
Ausencia de eco 
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Ordem? 0 
Rumo: 3 
Leme: Direito 

Ordem? 5 
Ausencia de eco 

Ordem? 0 
Rumo: 3 
Leme: direito 

Ordem? 5 

Eco na direcgao sudoeste 
Ordem? 2 

Mudanga de leme? 1 
Sim, sr. Comandante 
Rumo: 4 
Leme: Estibordo 

Ordem? 5 

Eco na direcgao sudoeste 

Ordem? 0 
Submarino escapa! 
Perdeu. 

N 

CA?A A SUBMARINOS 
Deseja instrugdes? N 
Partida... 

Ordem? 5 
AusSncia de eco 

Ordem? 0 
Rumo: 3 
Leme: Direito 


Ordem? 5 

Eco na direcgao sudeste 

Ordem? 0 
Rumo: 3 
Leme: Direito 

Ordem? 5 

Eco na direcgao sudeste 

Ordem? 0 
Rumo: 3 
Leme: Direito 

Ordem? 5 

Eco na direcgao sudeste 

Ordem? 6 
Langar cargas! 

Ordem? 5 

Eco na direcgao sudeste 

Ordem? 0 
Rumo: 3 
Leme: Direito 

Ordem? 5 

Eco na direcgao sudoeste 
Ordem? 2 

Mudanga de leme? 1 
Sim, sr. Comandante. 
Rumo: 4 
Leme: Estibordo 

Ordem? 5 

Eco na direcgao sudoeste 
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Ordem? 0 
Rumo: 5 
Leme: Estibordo 

Ordem? 5 

Eco na direc?ao sul 

Ordem? 2 

Mudanga de leme? -1 
Sim, sr. Comandante 
Rumo: 4 

Leme: Bombordo 

Ordem? 5 

Eco na direc^ao sul 

Ordem? 2 

Mudanga de leme? 0 
Sim, sr. Comandante 

Carga de profundidade atinge submarino! Ganhou! 
Deseja um ultimo mapa (s-n)? S 
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XXII 


LEILAO (5,5 K) 

N£o sei bem porque raz&o este jogo e t&o fascinante. Talvez 
seja a esperanga de obter uma pechincha, apesar de precaria; tal¬ 
vez se trate de o programa conseguir captar o ambiente da sala 
de leildes, ou talvez ainda o prazer intelectual de compreender as 
pistas langadas pelos outros compradores. Mais provavelmente, 
no entanto, ser& a possibilidade de veneer os outros jogadores. 
Qualquer que seja a razao, este jogo e considerado o melhor en- 
tre as pessoas da minha familia, novas ou de maior idade, e es- 
tou certo de que encontrar& muitos outros defensores. 

O jogo e suficientemente bem explicado na listagem, e a sinta- 
xe do programa n&o e de modo algum dificil; mas a tactica a se- 

guir merece certamente algum estudo. 

Depois de o jogo ter come$ado, apresentam-se lotes a leilao 
em grupos de vinte artigos, com um descanso “para tomar cafe 
depois de cada lote. O jogo so pode ser terminado num destes in- 
tervalos, o que per mite nslo dar a qualquer jogador uma vanta- 
gem em rela^ao aos outros. 

Os jogadores sao designados pelo nome, actuando o computa- 
dor como leiloeiro e contabilista. Os jogadores estao portanto a 
competir uns com os outros, nao com o computador. Existe no 
entanto um pormenor importante, que assume a forma de um 
(por vezes dois) licitadores secretos. Estes representam aquelas 
pessoas verdadeiramente conhecedoras que muitas vezes sao an- 
tiquarios profissionais. Conhecem o verdadeiro valor dos objec- 
tos antigos e, ao vS-los fazer as suas ofertas relativas a um dado 
artigo, os jogadores podem ter uma ideia do verdadeiro valor 
deste. Essas pessoas podem no entanto cometer erros. Por vezes 
sobrestimam o valor de um artigo ou nao apreciam devidamente 
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algo bastante valioso — e e entao que o jogador mais aventuroso 
pode fazer a sua oferta. 

Comegando com um capital de $100 cada, os jogadores nao 
podem certamente fazer muitas ofertas, mas podem adquirir 
bons artigos e aumentar o seu capital. 

Para ter exito neste jogo, portanto, e necessario possuir-se 
uma mistura de precaugao, espirito de aventura, experiencia do 
jogo e sorte. Talvez isto explique a sua popularidade. 

Depois de definir um array P$(X) contendo os nomes ou pseu- 
donimos de todos os jogadores, e uma matriz contendo o dinhei- 
ro de que dispoem, e posto a venda o primeiro lote com um valor 
definido pela linha 650. O leitor notara que utilizo tres numeros 
aleatorios entre 0 e 0,99999, multiplicando-os uns pelos outros 
— uma tecnica usada por vezes a fim de dar maior peso a parte 
inferior da gama de valores considerada. Multiplicando por 
10 000 consegue-se pregos relativamente baratos, apenas alguns 
deles atingindo os $10 000. 

Determina-se em seguida o momento em que o licitador secre- 
to entra em jogo, se e que o faz. Se um jogador nao oferece na- 
da, a sua matriz e carregada com o valor -9, e o leiloeiro nao o 
incomodar& mais durante a venda do lote presente. No caso con- 
trario, o valor da sua oferta e colocado na matriz — devendo co- 
mo e obvio ser superior & ultima oferta. 

Quando a subrotina do licitador secreto e acedida, este ofere- 
cera ate $50 por um artigo cujo valor atinja os $100. Isto permite 
aos jogadores com pouco capital aumentarem-no apropriando- 
-se de pequenos lotes — se os outros deixarem. 

No caso de artigos com valor superior a $100, o licitador se¬ 
creto recusar-se-a a fazer qualquer oferta em 10% dos casos, e 
em 25% dos casos continuara a fazer as suas ofertas depois de o 
seu valor ter sido atingido. Tendo em conta esta$ duas possibili- 
dades, e obvio que interessa aos jogadoresli aumentar as ofertas 
de pequenas quantias, dando assim ao licitador secreto mais pos- 
sibilidades de sair. O valor da oferta secreta e definido nas linhas 
1080 e 1100; foi pensado de tal mpdo que nao seja excessivamen- 
te grande em relagao a ultima oferta realizada, tendo no entanto 
em consideragao o verdadeiro valor do artigo. 

A licitagao continua ate fican'apenas um jogador, secreto ou 
nao. Os licitadores secretos nao podem comprar barato; isto e, 
no seu caso o prego de aquisigao e sempre pelo menos equivalen- 
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te a 75% do verdadeiro valor do objecto. Isto nao se aplica aos 
jogadores, no entanto. Pelo menos em teoria, e possivel a um jo¬ 
gador adquirir um artigo com um valor de $10 000 por apenas 
$ 1 . 


Lista de variaveis 


Q$ String de entradas 

L Numero de lote actual, 1-20 

P Numero de j ogadores 

X Contador 

P$(X) Array com nomes dos jogadores 
P(X,Y) Matriz dos jogadores, onde 
X = jogador e 
Y = 1 = dinheiro restante 

2 = oferta (-9, ausencia de oferta) 

E Flag indicadora do final do jogo 

C Idade atribuida ao artigo 

V Valor real do artigo 

B Valor da ultima oferta 

B1 Valor da oferta sepreta 

B2 Numero de jogadores que ainda apostam 
B9 Numero do jogador com maior oferta 

P1 Numero de licitagao do jogador secreto 


Listagem do programs 


0010 PRINT TAB(20); "LEILAO”; 

0020 PRINT TAB(20);“ = == = = = ” 

0030 INPUT “Deseja instrugoes ,, ,Q$ 

0040 IF LEFT$(Q$,1)<>“S” THEN 290 
0050 PRINT “Pode jogar qualquer numero de pessoas. Cada 
0060 PRINT “ uma possui inicialmente $100. Sao leiloa- 
dos 

0070 PRINT “varios artigos, podendo valer milhares ou”; 
0080 PRINT “ nada — e e dificil saber o seu verdadeiro ”; 
0090 PRINT ‘ ‘valor. E pedida uma oferta a cada jogador. ”; 
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0100 PRINT “ Escreva 0 se nao quiser oferecer. As ofer 
tas 

0110 PRINT ‘ ‘continuam ate ficar apenas um jogador, que ’ ’; 
0120 PRINT “ obviamenteficacomoartigo. ” 

0140 PRINT “Note que existe um licitador ‘secreto’ que 
0150 PRINT “ conhece o verdadeiro valor do artigo; mas 
0160 PRINT “tenhacuidado — pode tentar engana-lo!” 

0170 INPUT “ Carregue em RETURN... ”, Q$ 

0180 PRINT “Quando e vendido um artigo, e dito ao seu 
0190 PRINT “ comprador o valor do que comprou. O dinhei 
ro 

0200 PRINT “ em seu poder e modificado, passando-se ao lo 
te 

0210 PRINT “ seguinte.” 

0220 PRINT “ O vencedor e aquele que terminar com mais 
dinheiro.” 

0230 PRINT:PRINT :INPUT “Carregue em RE 
TURN...”,Q$ 

0240 DATA Jarrao, Quadro, Vaso de flores, Aparador, 
Objecto artistico 

0250 DATA Escultura, Quadro, Manuscrito, Suporte de 
pautas, Violino 

0260 DATA Pe?a de ceramica, Prato, Desenho, Relogio, 
Lanterna 

0270 DATA Ta?a de prata, Cadeira, Mesa pequena, Pistola, 
Espada 

0290 PRINT :L=1 

0300 REM — Inicio 

0310 PRINT “Quantosjogadores”; 

0320 INPUT P 
0330 IF P<1 THEN 310 

0340 PRINT “Por favor escreva o nome pelo qual quer ser 
0350 PRINT “ conhecido pelo leiloeiro.” 

0360 FOR X= 1 TO P:PRINT 
0370 PRINT “Jogador n.”;X;‘ 

0380 INPUT P$(X):IF P$(X) = “THEN PRINT “Repita”:- 
GOTO 370 
0390 NEXT X 

0400 DIM P(P,2):REM — Para cada jogador, dinheiro e 
aposta 


0410 FOR X = 1 TO P:P(X,1) = 100:P(X,2) = -9:NEXT X 

0420 REM — Menos 9 indica ausencia de aposta 

0499 REM — Relatorio aos jogadores 

0500 PRINT 

0520 FOR X = 1 TO P 

0530 PRINT P$(X);“ — Vocetem $”;P(X,1) 

0540 NEXT X:PRINT: PRINT: PRINT: IF E = 1 THEN END 
0550 PRINT “Boa tarde, senhoras e senhores.” 

0560 PRINT “Apresento agora o lote n.”;L; ” 

0570 RESTORE 

0599 REM — Come?a o leilao 

0610 READ L$:PRINT L$; “atribuido(a) ao seculo 

0620 C = INT(RND(0) *6 + 14) 

0630 PRINT C;“ Que oferecem por este artigo raro?” 

0640 REM — Determinar valor verdadeiro 
0650 V = INT(RND*RND*RND*10 000+1) 

0660 B = 0:REM — Maior oferta 

0670 B2 = P:REM — Numero de jogadores que oferecem 

0680 B1 = 0:REM — Oferta secreta 

0690 B9 = 0:REM — Numero do jogador com maior oferta 

0698 REM — Loop de oferta 

0699 REM — Determinar posi?ao do licitador secreto 

0700 PI = (INT(RND(0)*P + 1) 

0710 FOR X= 1 TO P:IF XOP1 THEN 740 

0720 IF B = -9 THEN 740: REM — Nao interessado 

0730 GOSUB1000 

0740 IF P(X,2) = 0 THEN 930 

0750 IF X = B9 THEN 930 

0760 IF BOO THEN 800 

0770 PRINT 

0780 PRINT P$(X);“ — Qual t asuaprimeiraoferta”; 

0790 GOTO 810 

0800 PRINT :PRINT “Ofereceram $”;B;“;a sua oferta, ” 
;P$(X); 

0810 INPUT P(X,2) 

0820 IF P(X,2)<>0 THEN 860 

0830 PRINT “Obrigado, ”;P$(X);“ — nao oferece.” 

0840 B2 = B2-1: GOTO 390 

0860 IF P(X,2)< = P(X, 1)THEN 880 

0870 PRINT “Mas apenas possui $”;P (X,l)“!”:GOTO 760 

0880 IF P(X,2)>B THEN 910 
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0890 PRINT “Ja tenho umaofertade— por favor 
0900 PRINT “ oferega mais, ou nao ofere?a.”:GOTO 760 
0910 B = P(X,2):B9 = X:REM — Jogador 
0920 PRINT “$”;B;“ — Obrigado, ”;P$(X) 

0930 NEXT X:IFB2>1 THEN 700 

0940 IF B1 = -9 THEN 1200:REM - O ultimo jogador compra 
0950 IF B2 = 0 THEN 1200:REM — So fica o jogador secreto 
0960 IF BOB1 THEN GOSUB 1000 
0970 GOTO 700 

0999 REM — Subrotina do jogador secreto 
1000 IF B> = V THEN 1050 

1010 IF V<100 THEN B1 = INT(RND(0)*50+l):GOTO 
1104 

1020 REM — Confundir nao oferecendo? 

1030 IF RND(0)>.9 THEN B1 = -9:RETURN 
1040 GOTO 1080 

1050 REM — Confundir oferecendo demais? 

0160 IF RND(0)>.25 THEN 1130 
1070 REM — Calcular oferta 

1080 B1 = INT(((ABS(V—B)*RND(0)/3.3) + B)/10)*10 
1090 IF B1>B THEN 1110 

1100 IF BKVT.5 THEN B1 = INT((B1 + RND(0)*100+1)- 
/10)*10:GOTO 1090 
1102 VI = -9:GOTO 1130 
1104 IFB1<= B THEN 1130 
1110 PRINT :B = B1:B9 = 9 
1120 PRINT “$”;B;“ Uma oferta anonima.” 

1130 RETURN 

1190 REM — Vender pela maior oferta 

1200 IF B9<>9 THEN 1250 

1210 IFB1>V*.75 THEN 1250 

1220 PRINT :PRINT “O artigo e retirado-Havia ”: 

1230 PRINT “ umpre?odereservade$”;V 
1240 GOTO 1400 
1250 PRINT: PRINT 

1260 PRINT “Mais nenhuma oferta? Nao? ” 

1270 PRINT TAB( 12); 

1280 IF B9<>9 THEN 1310 

1290 PRINT “Arrematado pela oferta anonima de $”;B: 
GOTO 1310 
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1300 PRINT “Arrematado por ”;P$(B9);“ por $”;B 
1310 PRINT :PRINT 

1320 PRINT “O valor real do artigo e $”;V 
1330 IF V>B THEN 1350 
1340 PRINT “E pena, ”;:GOTO 1360 
1350 PRINT “Foi uma pechincha, 

1360 IF B9 = 9 THEN PRINT “senhorP’GOTO 1400 
1370 PRINT P$(B9); “! ”: P(B9,1) = P(B9,1)—B + V 
1380 PRINT “As suas disponibilidades sao agora de $” 
P(B9,1) 

1390 IF P(B9,1) = 0 THEN 9000 

1399 REM — Preparar para o lote seguinte 

1400 FOR X = 1 TO P:P(X,2) = -9:NEXT X 
1410 L = L + 1 :IF INT (L/20)*20 = L THEN 8000 

1420 PRINT TAB( 12); “= = = = = = = = = = ”:PRINT 
1430 PRINT “Em seguidaapresento o loten.”;L;“. 

1440 GOTO 610 

7999 REM — Continuar o leilao? 

8000 PRINT :PRINT:PRINT 

8010 PRINT “Neste momenta, senhoras e senhores/’; 

8020 PRINT “faremos um intervalo para ir ao bar.” 

8030 PRINT 

8040 INPUT “Desejam continuar” ,Q$ 

8050 IF LEFT$(Q$,1)<>“S” THEN E = 1 :GOTO 500 
8060 PRINT :L = L 4-1 :GOTO 500 

8999 REM — Final do jogo 

9000 PRINT “Terminou o leilao.” 

9010 PRINT “Pontuafoes finais —” 

9020 PRINT :E=l:GOTO 500 


Exemplo de execu?ao 

Deseja instrupoes? Nao 
Quantos jogadores? 

Por favor escreva o nome pelo qual quer ser 
conhecido pelo leiloeiro. 

Jogador n.l? Tomas 
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Jogador n.2? Joao 
Jogador n.3? Manuel 

Tomas — voce tem $100 
Joao — voce tem $100 
Manuel — voce tem $100 

Boa tarde, senhores e senhoras. 

Apresento agora o lote n.l. Jarrao atribuldo(a) ao 
seculo 15. Que oferecem por este artigo raro? 

Tom&s — Qual e a sua primeira ofertal 
$1 — Obrigado, Tomas 

$6 — Uma oferta anonima. 

$7 — Obrigado, Joao 
Ofereceram $7; a sua oferta, Manuel8 
$8 — Obrigado, Manuel 

Ofereceram $8; a sua oferta, TomaslO 
$10 — Obrigado, Tomas 

Ofereceram $10; a sua oferta, JoaoO 
Obrigado, Joao — nao oferece. 

$25 — Uma oferta anonima. 

Ofereceram $25; a sua oferta, ManueUO 
$30 — Obrigado, Manuel 

Ofereceram $30; a sua oferta, TomasO 
Obrigado, Tomas — nao oferece. 

$110 — Uma oferta anonima. 

Ofereceram $110; a sua oferta, ManuelO 
Obrigado, Manuel — nao oferece 
Mais nenhuma oferta? Nao? 

Arrematado pela oferta anonima de $110 
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O valor real do artigo e $26 
E pena, senhor! 


Em seguida apresento o lote n. 2. Quadro atribuido (a) ao 
seculo 18. Que oferecem por este artigo raro? 

Tomas — Qual 6 a sua primeira ofertal 
$1 — Obrigado, Tomas 

$90 — Uma oferta anonima. 

Ofereceram $90; a sua oferta, JoaoO 
Obrigado, Joao — nao oferece. 

Ofereceram $90; a sua oferta, ManuelO 
Obrigado, Manuel — nao oferece 

Ofereceram $90; a sua oferta, TomasO 
Obrigado, Tomas — nao oferece. 

$210 — Uma oferta anonima. 

O artigo e retirado. Havia um pre?o de reserva de $602 


Em seguida apresento o lote n.3. Vaso de flores atribuido(a) 
ao seculo 16. Que oferecem por este artigo raro? 

Tomas — qual 6 a sua primeira ofertal 
$1 — Obrigado, Tomas 

$20 — Uma oferta anonima. 

Ofereceram $20; a sua oferta, Joao22 
$22 — Obrigado, Joao 

Ofereceram $22; a sua oferta, ManuelO 
Obrigado, Manuel — nao oferece. 
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Ofereceram $22; a sua oferta, TomasO 
Obrigado, Tomas — nao oferece. 

$70 — Uma oferta anonima. 

Ofereceram $70; a sua oferta, Joao75 
$75 — Obrigado, Joao 

$80 — Uma oferta anonima 

$150 — Uma oferta anonima. 

Ofereceram $150; a sua oferta, JoaoO 
Obrigado, Joao — nao oferece. 

O artigo e retirado. Havia um prego de reserva de $345 


Ofereceram $1; a sua oferta, Joao2 
$2 — Obrigado, joao 

$10 — Uma oferta anonima. 

Ofereceram $10; a sua oferta, Manuel2C 
$20 — Obrigado, Manuel 

Ofereceram $20; a sua oferta, TomasO 
Obrigado, Tomas — nao oferece. 

$70 — Uma oferta anonima. 

Ofereceram $70; a sua oferta, Joao77 
$77 — Obrigado, Joao 

Ofereceram $77; a sua oferta, ManuelO 
Obrigado, Manuel — nao oferece. 


O valor real do artigo e $130 
Foi uma pechincha, Joao! 

As suas disponibilidades sao agora de $153 


Em seguida apresento o lote n. 18. Mesa pequena atribuido(a) 
ao seculo 17. Que oferecem por este artigo raro? 

$30 — Uma oferta anonima 
Ofereceram $30; a sua oferta, Tomas33 
$33 — Obrigado, Tomas 

Ofereceram $33; a sua oferta, JoaoO 
Obrigado, Joao — n&o oferece. 

Ofereceram $33; a sua oferta, ManuelO 
Obrigado, Manuel — nao oferece. 

$70 — Uma oferta anonima. 

Ofereceram $70; a sua oferta, Tomas77 
$77 — Obrigado, Tomas 

$90 — Uma oferta anonima. 

$110 — Uma oferta anonima. 

Ofereceram $110; a sua oferta, TomasO 
Obrigado, Tom&s — nao oferece. 

O artigo e retirado. Havia um prego de reserva de $205. 


Apresento agora o lote n. 19. Pistola atribuido(a) ao 
seculo 18. Que oferecem por este artigo raro? 


Mais nenhuma oferta? Nao? Tomas — qual e a sua primeira ofertal 

Arrematado por Joao por $77 $1 _ Obrigado, Tomas 
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Ofereceram $1; a sua oferta, Joao2 
$2 — Obrigado, Joao 

Ofereceram $2; a sua oferta, ManueB 
$3-— Obrigado, Manuel 

Ofereceram $3; a sua oferta, Tomas5 
$5 — Obrigado, Tomas 

Ofereceram $5; a sua oferta, JoaoO 
Obrigado, Joao — nao oferece. 

Ofereceram $5; a sua oferta, ManuelO 
Obrigado, Manuel — nao oferece. 

Mais nenhuma oferta? Nao? 

Arrematado por Tomas por $5 

O valor real do artigo e $1002 
Foi uma pechincha, Tomas! 

As suas disponibilidades sao agora de $1097 

Neste momento, senhoras e senhores, faremos urn intervalo 
para ir ao bar. 

Desejam continuar? N 

Pontuagoes finais — 

Tomas — voce tern $1907 
Joao — voce tern $153 
Manuel —- voc8 tern $100 
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XXIII 


WOTSIT? (2,1 K) 

“Wotsit?” e um jogo que qualquer pessoa achara interessan- 
te. Sao omitidos sinais de mais e menos em somas, sendo neces¬ 
sario ao jogador coloca-los de novo. Pode-se especificar quantos 
operadores se pretende utilizar, dado que sao possiveis ate 10,, e 
o resultado constituira certamente um bom teste de agilidade 
mental. As crian^as conseguirao resolver problemas com dois ou 
tr6s sinais em falta, e o adulto normal suportara facilmente qua- 

tro ou cinco. ' . .. , 

Se bem que o problema seja simples de enunciar, a escrita do 

programa nao 6 tao facil. Existem dois problemas principals na 
programagao. Em primeiro lugar, muitas combinagoes de valo- 
res e operadores darao resultados semelhantes, prmcipalmente 
quando sao repetidos numeros. Por exemplo, 17-3 + 3 da o mes- 
mo resultado que 17 + 3-3, pelo que nao bastara fazer uma sim¬ 
ples compara^ao dos sinais indicados pelo jogador com os co- 
nhecidos pela m4quina. E necessario reconstruir o total a partir 
dos numeros originais e dos sinais indicados pelo jogador, se 
ambos forem iguais o computador deve aceitar a resposta. 

Isto significa por sua vez que e necessario armazenar cada nu- 
mero original para ser usado mais tarde. Isto leva-nos a conside- 
rar o segundo problema, que consiste em Mo podermos cons- 
truir uma string de numeros e sinais para processamento lmedia- 
to, sendo forgados a fazer uma soma continua, numero a nume- 

Pensei em incluir sinais de multiplica?ao e divisao, mas depois 
de pensar um pouco convenci-me de que o programa resultante 
seria enormemente complicado devido a problemas de preceden- 
cia das operates (nao esque?a que o computador realiza as mui- 
tiplica?5es e divisoes antes das somas e subtrac?5es). be quiser 
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fazer esse programa, ira enfrentar bastantes dificuldades. Alias 
o programa ja e bastante dificil para qualquer jogador nesta ver- 
sao. 


Lista de variaveis 

Q$ String de entradas 

R Problemas respondidos correctamente 

S Numero total de somas 

M Numero de operadores em falta 

P Numero de problema, 1 a 3 

P$ String de operadores em falta 

D(X) Numeros usados 

T Total do processamento original 

N Contagem de numeros 

O Numero de operador omitido, 1 a 2 

onde 1 = somar 
2 = subtrair 

I Contagem dos operadores indicados pelo jogador 

A$ Operador indicado pelo jogador 

T1 Total da soma a partir dos operadores do jogador 
0$ String de todos os operadores do jogador. 


Llstagem do programa 

0010 PRINT “WOTSIT?” 

0020 PRINT “= = = =:=” 

0030 PRINT :PRINT 

0040 INPUT < ‘Desejainstru£oes ,, ,Q$ 

0050 IFLEFT$(Q$,1) = “S” GOSUB 1000 
0060 PRINT :R = 0;S = 0 
0070 INPUT “Quantos operadores em falta” ,Q$ 
0080 M = ABS(INT(M)) 

0090 IF M>10THEN 70 

0100 IF M = 0 THEN 70 

0110 REM — Dar tres elementos ao jogador 

0120 FOR P= 1 TO 3:P$ = “”:S = S + 1 

0130 REM Dar primeiro numero 
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0140 D(l) = INT(RND(O)*20 + 1):T = D(l) 

0150 PRINT D(l);“?”; 

0160 REM — Dar numeros iguais aos operadores 

0170 FORN = 2TOM + l 

0180 D(N) = INT(RND(O)*20 + 1):PRINT D(N); 

0190 REM Escolher operador 
0200 O = INT(RND(0)*2 + 1) 

0210 IF O = 1 THEN P$ = P$ + “ + ”:T = T + D(N) 

0220 IF O = 2 THEN P$ = P$ + “~”;T = T-D(N) 

0230 IF NOM +1 PRINT “ ? 

0240 NEXT N:PRINT “ = ”;T 

0250 PRINT:PRINT “Quais sao os operadores em 1 altar 
0255 PRINT “Carregue em RETURN depois de cada 

caracter” 

0260 0$ = “”:FOR 1 = 1 TO M 
0270 INPUT A$ 

0280 IF A$ = “ + ” THEN 310 

0290 IF A$ = “-” THEN 310 , , . 

0300 PRINT “Indique erro. Por favor escreva - ou + 

GOTO 270 

0310 0$ = 0$ + A$:NEXTI 

0320 IF 0$ = P$ PRINT “Correcto! :R = R + l:GOTO 400 

0325 REM — Reconstruir a partir da entrada 

0330 T1 = D(l):FOR X = 2 TO M + 1 

0340 IF MID$(0$,X-1,1) = “ + ” THENT1 =T1 + D(X) 

0350 IF MID$(0$,x-l,1) = “-’’THEN T1 = T1-D(X) 

0360 NEXT X:IF T = T1 PRINT “Correcto! :R = R+1. 

GOTO 400 

0370 PRINT “Errado. A resposta era: ; 

0380 FORX= 1 TON:PRINTMID$(P$,X,l): ”;:NEXTX 

0390 PRINT 

0400 NEXT P:PRINT:PRINT ^ 

0410 PRINT “A sua pontua?ao at6 agora e ;R, num total 
de ”’S 

0420 PRINT “Isto 6, ”;R/S*100; “Por cento.” 

0430 INPUT “Novo jogo (S-N)’\Q$ 

0440 IF Q$ = “S” THEN PRINT:GOTO 70 

0450 END „ , 

1000 PRINT ‘ ‘Neste jogo vou apresentar-lhe series de somas^ , 

1010 PRINT “ e subtrac?oes, sem os respectivos sinais. 
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1020 PRINT “Por exemplo 
1030 PRINT “ 3 ? 4 ? 1 = 6” 

1040 PRINT “Devera escrever os sinais em falta — neste 
1050 PRINT“ caso, + e porque 3 + 4 -1 = 6.” 

1060 PRINT “Vou perguntar-lhe quantos operadores deseja, 

1070 PRINT “ ou seja, quantos sinais em falta. Nao seja 
1080 PRINT “ambicioso deinicio... Boa sorte!” 

1090 INPUT w Por favor carregue em RETURN...”,Q$ 

1100 RETURN 


A sua pontuagao ate agora e 3 num total de 3 
isto e, 100 por cento. 

Novo jogo (S-N)? S 

Quantos operadores em falta? 3 
4? 10? 10? 16 = 0 

Quais sao os operadores em falta? 

Carregue em RETURN depois de cada caracter 


Exemplo de execugao 

Deseja instrugoes? NAO. 

Quantos operadores em falta? 2 
14? 9? 2 = 25 

Quais sao os operadores em falta? 

Carregue em RETURN depois de cada caracter 
+ 

+ 

Correcto! 

17 ? 12 ? 13 = -8 

Quais s&o os operadores em falta? 

Carregue em RETURN depois de cada caracter 


Correcto! 

16 ? 4 ? 7 = 13 


+ 

Correcto! 

3? 18? 12? 16 = 25 

Quais sao os operadores em falta? 

Carregue em RETURN depois de cada caracter 


+ 

Correcto! 

9? 6? 11 ? 8 = 34 

Quais sao os operadores em falta? 

Carregue em RETURN depois de cada caracter 

+ 

Correcto! 

A sua pontuagao ate agora e 6 num total de 6 
isto e, 100 por cento 


Quais sao os operadores em falta? 

Carregue em RETURN depois de cada caracter 
+ 

Correcto! 
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XXIV 


CASA ASSOMBRADA (10 K) 

Apresentamos em seguida um jogo que certamente agradara 
aos membros mais jovens da familial Podem explorar uma casa 
assombrada, abrir caixas e aparadores enquanto o fazem. Na 
maior parte deles encontrarao coisas sem interesse, mas em al- 
guns estarao objectos valiosos. Ssshhhh — nao diga nada a nin- 
guem — num esta uma caveira que salta para fora e nos apanha! 

Algumas caixas e aparadores encontram-se fechados, sendo 
necessaria uma ferramenta qualquer para os abrir; mas e possi- 
vel encontrar ferramentas e chaves noutras caixas ou gavetas. A 
certo momento sao ate necessarias duas chaves ou ferramentas 
— e nesse local que se encontra o tesouro mais valioso! O leitor 
tera de correr toda a casa, com o coragSo na boca, abrindo gave¬ 
tas a medo, esperando encontrar as chaves e o tesouro mas sem- 
pre temendo encontrar a caveira em vez dele. E optimo! 

O jogo termina quando a caveira nos apanha, ou quando nos 
afastamos da casa. Podemos afastar-nos da casa caminhando 
para norte a partir da parede norte, para oeste a partir da parede 
oeste, etc. Quando tal acontece, e dito ao jogador o valor daqui- 
lo que traz consigo, e a sua pontuagao. Copsegue mais pontos 
quando atinge o tesouro em menos movimehtos, e nada pontua 
se n&o encontrar nenhum objecto valioso. 

Se o computador dispuser de uma memoria sqficiente, as des¬ 
cribes poderr^ ser ampliadas (linhas 1080-1280),, podendo-se 
tambem incluir um “ruido” ou um qualquer “gerador” de 
acontecimentos que ajudem a manter o ambiente; por exemplo 
portas batendo, ruido de correntes, gargalhadas, etc. Melhor 
ainda, se dispuser dos meios necessarios, pode gravar estes rui- 
dos e reproduzi-los num altifalante! 


Se no entanto a memoria de que a maquina dispoe e limitada, 
retire uma ou duas salas e as respectivas descrigoes, alem do nu- 
mero correspondente de objectos inuteis. Existem 20 de cada, 
pelo que mesmo no caso de apenas remover a cave e o espago no 
topo das escadas que conduzem a esta e possivel poupar 1 K. 

O programa propriamente dito comega na linha 200, onde sko 
distribuidos os primeiros 11 objectos aleatoriamente pelas 20 sa¬ 
las ou locals. Conseguimos isto utilizando uma matriz B, na qual 
para cada sala temos tres parametros. O primeiro e o numero do 
objecto ai escondido. Os ultimos nove objectos so podem ser 
acedidos usando uma chave, pelo que depois de colocarmos o 
numero na primeira coluna da tabela damos a segunda coluna 
um numero entre 1 e 9, representando uma das 9 chaves. So no 
caso do objecto 20 (o tesouro) se utiliza uma segunda chave, in- 
dicada na coluna 3. 

O array A$ recebe o nome de cada artigo, lido das instrugdes 
DATA nas linhas 160 a 190. A segunda matriz M define os movi- 
mentos, sendo novamente concebida como uma tabela. Para ca¬ 
da sala por onde se passa, as seis colunas da tabela dko os nume- 
ros das salas para onde podemos passar se nos deslocarmos para 
norte, sul, leste, oeste, para cima ou para baixo, respectivamen- 
te. Estas instrugdes DATA sao lidas das posigdes adjacentes ks 
descrigdes da sala, o que e o local mais logico para as colocar e 
permite facilitar a escrita e a compreens&o do programa. Note 
que aqui se ilustra claramente a possibilidade de espalhar as ins¬ 
trugdes DATA pela listagem. 

So existem 20 salas ou locais e 21 valores possiveis da matriz 
M. O 4 ‘local’’ 21 equivale a sair da casa, terminando o jogo. O 
“local” 22 nao tern saida, e o utilizador recebe a mensagem 
apropriada se tentar esse movimento. 

Chamo ainda a atengao do leitor para o metodo usado para 
descodificar a entrada do utilizador. Este pode usar 7 ordens: as 
seis direcgoes e ABRIR. A subrotina que se inicia na linha 2000 
permite dar entrada a toda a palavra ou apenas k inicial — o que 
requer uma cuidadosa escolha das ordens possiveis! Se a ordem e 
legal, a subrotina atribui um valor 1 a 7 k variavel X, correspon- 
dendo o numero k ordem dada. Este metodo de descodificagSo 
das ordens e bastante melhor do que os utilizados ate aqui. Co¬ 
mo e obvio, se o quisermos, poderemos aceder a esta subrotina 
em qualquer ponto do programa. 
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Finalmente, o array A(X) contem o numero de objectos reco- 
lhidos — o inventario — sendo usado para verificar se podemos 
abrir uma gaveta fechada. A linha 590 soma o valor dos objectos 
valiosos a um total, T. 


Lista de variaveis 

R(X,Y) Matriz de objectos, onde 
X = localizagao 

Y = 1 numero do objecto 

2 = Objecto para abrir, se houver 

3 = Segundo objecto para abrir, se houver 
A$(X) Array de nomes dos objectos 

M(X,Y) Matriz de movimentos, onde 
X = posigao actual 

Y = 1 = sala a norte 

2 = sala a sul 

3 = sala a leste 

4 = sala a oeste 

5 = sala por cima 

6 = sala por baixo 

N Numero da sala ou local actual 
A$ String de respostas 

X Contador; tambem numero de movimento 

A Numero dos objectos 

R Numero das salas 

Y Contador geral 

K Numero de objecto para abrir 

F Flag; 0 = receptaculo fechado; 1 = aberto 
N9 Numero de objectos recolhidos 

N1 e N2 Factores temporaries de N 
R$ String de iniciais permissiveis 


Listagem do programa 

0010 PRINT “CASA ASSOMBRADA” 
0020 PRINT “===========” 

0030 DIM B(20,3),A$(20),M(20,6):N = 1 
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0040 LINE = 72 :INPUT “Desejainstrug6es”,A$ 

0050 IF LEFT$(A$,1)= “N” THEN 140 

0060 PRINT “Vai explorar uma casa assombrada, encontrando 

0070 PRINT “ talvez objectos valiosos dentro dela. Em cada 
0080 PRINT “ movimento deve escrever uma das seguintes 

ordens: 

0090 PRINT “N (norte), S (sul), E (este) ou O (oeste). Pode 
0100 PRINT “ tambem escrever C (para cima) ou B (para 

banco). ” ; , . „ 

0110 PRINT “Se quiser abrir qualquer coisa, escreva A. 

0130 PRINT “Por favor carregue em RETURN para 
comegar. ”;A$ 

0135 REM — Dar algo para ler 
0140 GOSUB 1000 

0150 FOR X = 1 TO 20:READ A$(X):NEXT X 
0160 DATA chave de parafusos, martelo, chave pequena, 
chave de latao, chave grande 

0170 DATA lata de oleo, serra, fita de chapeu, lima, lupa, 
rato morto 

0180 DATA pao duro, fotografia, jornal velho, caveira, saco 
de moedas 

0190 DATA conjunto de colheres, ma?o de notas, anel de 
rubi, tesouro 

0200 PRINT :PRINT “Um momento por favor...” 

0210 REM — distribuir objectos 
0220 REM — Um objecto por sala 
0230 For A = 1 TO 11 
0240 R = INT(RND(0)*20 + 1) 

0250 IF B(R,1)<>0 THEN 240 

0260 B(R, 1) = A;NEXT A 

0270 REM — Nos ultimos 9, aplicar uma chave 

0280 FOR A =12 TO 19 

0290 R = INT(RND(0)*20 +1) 

0300 IF B(R, 1)00 THEN 290 

0310 B(R,1) = A:B(R,2) = INT(RND(0)*9 + 1) 

0320 NEXT A 

0330 REM — Para o tesouro, duas chaves 

0340 FOR R = 1 TO 20 :IF B(R, 1) = 0 THEN 350:NEXT R 

0350 B(R, 1) = 20:B(R,2) = INT(RND(0)*9 +1) 
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0360 B(R,3) = INT(RND(0)*9+1):IF B(R,3) = B(R,2) THEN 
360 

0370 REM — Leitura dos dados 

0380 FOR X=1 TO 20:FOR Y=1 TO 6:READ M(X,Y): 
NEXT Y:NEXT X 
0390 REM — Movimento 
0400 PRINT :GOSUB 2000:M = M + 1 
0410 IF X<>7 THEN 610 
0420 REM — Ordemdeabrir 
0430 IF B(N,1) = 0 GOSUB 1300:GOTO 400 
0440 REM — Necessaria chave? 

0450 IF B(N,2) = 0 THEN 520 

0460 K = B(N,2):GOSUB 4000:REM — Verificar inventario 
0470 IF F = 0 THEN 400 
0480 REM Segunda chave? 

0490 IF B(N,3) = 0 THEN 520 

0500 K = B(N,3):GOSUB 4000:REM — Verificar inventario 

0510 IFF = 0THEN400 

0520 X = B(N,1):IFX<>15 THEN 550 

0530 PRINT “AAAAAGH! Umacaveira! Emexe-se!” 

0540 PRINT “Poucasorte...”:END 

0550 PRINT “Esta um(a) ”;A$(X);“ aqui. Quer este 
objecto?” 

0560 INPUT Q$:IF LEFT$(Q$,1) = “N” THEN 400 
0570 B(N,1) = 0 

0580 N9 = N9 +1:A(N9) = X:PRINT “O.K. — e seu.” 

0590 IF X> = 16 THEN T = T + 10*X 
0600 GOTO 400 

0605 REM — Verificar movimento 

0610 IF M(N,X) =21 THEN N = M(N,X):GOSUB 1000: 
GOTO 400 

0620 GOSUB 1290: GOTO 400 

1000 IF M = 0 GOSUB 3000 

1005 N1 = INT(N/5):N2 = N-Nl *5 

1010 ON N1 + 1 GOTO 1020,1030,1040,1050,1060 

1020 ON N2 GOTO 1080,1090,1090,1100,1110 

1030 ONN2+1 GOTO 1120,1130,1140,1150,1160 

1040 ONN2+ 1 GOTO 1170,1180,1190,1200,1210 

1050 ONN2 + 1 GOTO 1220,1230,1240,1250,1260 

1060 ON N2+ 1 GOTO 1270,1280 


1080 DATA 22,21,2,4,22,22 

1081 PRINT “Voce esta junto ao lado sul de uma mansao do 

1082 PRINT “ seculo passado, virado para a porta. No canto 

1083 PRINT “direito ve-se uma torre. A seu lado esta um 

1084 PRINT “ tumulo em pedra. Talvez possa abri-lo. ”: 
RETURN 

1090 DATA 3,1,21,10,22,22 

1091 PRINT “Voce esta junto ao lado leste da casa, com a 

1092 PRINT “ torre a esquerda. Ve uma janela partida 
por 

1093 PRINT “onde poderia entrar. Abaixo da janela esta 

1094 PRINT “ uma velha caixa de ferramentas de 
jardinagem.”: RETURN 

1100 DATA 21,12,2,4,22,22 

1101 PRINT “Atras da casa, no lado norte, voce ve uma 

1102 PRINT “ala do alpendre. Ao lado da porta traseira 

1103 PRINT “ veumcaixao.”: RETURN 

1110 DATA 3,1,15,21,22,22 

1111 PRINT “Na parede oeste da casa esta uma janela aberta.” 

1112 PRINT ‘ ‘Uma trepadeira cobre em parte um interessante ’ ’; 

1113 PRINT “ paiol de carvao. A trepadeira permite-lhe 
entrar 

1114 PRINT “ facilmente pela janela. Escreva E para o 
fazer 

1115 PRINT “ ou A para abrir o paiol. ”: RETURN 

1120 DATA 16,22,6,22,22,22 

1121 PRINT “Esta na sala de desenho. A poeira cobre as 

1122 PRINT “ cadeiras, a mesa, e a caixa de aspecto ca 
ro. 

1123 PRINT “Existem duas portas, a norte e leste.’’ 

1124 RETURN 

1130 DATA 13,22,7,5,19,22 

1131 PRINT" Esta no hall, rodeado por paredes almofada 
das. Uma 

1132 PRINT “escada sobe na escuridao. Ha portas para 
norte, 

1133 PRINT" sul, leste e oeste, mas a de sul e a porta 

1134 PRINT “principal. Note que existe um armario debaixo 

1135 PRINT “ dasescadas. ” 
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1136 RETURN 

1140 DATA 9,22,8,6,22,22 

1141 PRINT “Uma sala de estar, sem mobilia excepto um ”; 

1142 PRINT 44 armario num canto. Ha portas para norte, 

1143 - PRINT “oeste e leste.”: RETURN 

1150 DATA 22,22,22,7,22,22 

1151 PRINT 4 ‘Uma sala de musica, com um piano velho eum”; 

1152 PRINT 44 suporte de pautas. O espago circular num dos 

1153 PRINT 44 cantos, com uma janela grande, forma a base 

1154 PRINT 44 da torre. Uma porta para oeste. ’ ’ 

1155 RETURN 

1160 DATA 11,7,22,13,22,22 

1161 PRINT “Sala dejantar, comjanelasanorteealeste. ”; 

1162 PRINT 44 A virada a norte esta semi-aberta. Numa 
parede ”; 

1163 PRINT 44 esta uma mesa com um bolo bolorento por ci 
ma.”; 

1164 PRINT 44 Ao lado encontra-se um armario.” 

1165 PRINT 4< Existem duas portas, uma para sul e outra 
para 

1160 PRINT “oeste.”:RETURN 

1170 DATA 11,22,2,22,22,22 

1171 PRINT 4 ‘Esta na ala leste do alpendre fechado. Existe 

1172 PRINT 44 uma janela partida para o exterior, e uma ”; 

1173 PRINT “grande caixa de estanho.”:RETURN 

1174 PRINT “a extremidade norte. ”:RETURN 

1180 DATA 22,9,10,12,22,22 

1181 PRINT “Na ala norte do alpendre. Existe uma porta ”; 

1182 PRINT 44 par a oeste e uma janela aberta para sul. ”; 

1183 PRINT 4 4 VS-se uma caixa de brinquedos muito grande/ ’ 

1184 RETURN 

1190 DATA3,13,11,22,22,22 

1191 PRINT “Esta na porta traseira, aberta a norte. ”; 

1192 PRINT “ Para sul entra na Casa, e existe ”; 

1193 PRINT “outra porta para leste. Ve uma velha area. ” 

1194 RETURN 

1200 DATA 12,6,9,14,22,22 

1201 PRINT “Esta num corredor escuro com uma porta em 
cada 
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1202 PRINT 44 lado. No chaove uma caixa de estanho.” 

1203 RETURN 

1210 DATA 22,17,13,15,22,22 

1211 PRINT “Esta na cozinha, com algumas manchas 

estranhas”; , 

1212 PRINT “ no chao. Existem portas para leste, sul e ; 

1213 PRINT “oeste e um grande fogao em ferro.”:RETURN 

1220 DATA 22,22,14,4,22,22 ' . . „ 

1221 PRINT 44 Umadespensaapertada,comprateleirasdos ^ 

1222 PRINT 44 doislados. Existe uma porta para leste e uma”; 

1223 PRINT “ janela partida a oeste. Ve um velho arma 
rio ”; 

1224 PRINT “enferrujado.”:RETURN 

1230 DATA 22,5,22,22,22,22 

1231 PRINT “Um estudio com cortinas pesadas e cheio ae , 

1232 PRINT 44 poeira. Uma porta para sul. No centro, uma’’; 

1233 PRINT 44 secretaria grande e pesada, com gavetas.’ 

1234 RETURN 

1240 DATA 14,22,22,22,22,18 

1241 PRINT 44 Um pequeno espago no topo das escadas para a , 

1242 PRINT 44 cave. Uma porta a norte, com um peque 

no ’ ’; 

1243 PRINT “arm&rio a norte.”:RETURN 

1250 DATA 22,22,22,22,17,22 „ „ 

1251 PRINT “Esta agora na cave. Apenas ve um bau vemo. 

1252 RETURN 

1260 DATA 22,22,20,22,22,6 ...... 

1261 PRINT “Estanaescuridao, no topo das escadas. Uma ^ 

1262 PRINT “porta para leste. Existe uma pequena area. 

1263 RETURN 

1270 DATA 22,22,22,19,22,22 

1271 PRINT “Esta no quarto de dormir da torre. A cama , 

1272 PRINT “desfez-se a muito num monte de poeira, mas a 

>> . 

1273 PRINT “ comoda ainda se mantem. ”: RETU RN 
1280 IF T>0 THEN 2080 

1285 PRINT “Desiste tao cedo? O.K. — jogaremos noutra 
ocasiao.” 

1286 END _ _ 

1290 PRINT “Nao pode ir por ai.”:RETURN 
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1300 PRINT ‘ ‘Esta vazio. ”: RETURN 
2000 INPUT “O seu movimento”,Q$ 

2010 Q$ = LEFT$(Q$,1) 

2030 P$ = “NSEOCBA” 

2040 FORX=1 TO7:IFQ$ = MID$(R$,X,1)THEN2070 
2050 NEXT X: PR I NT “Nao percebo a sua instrucao.” 

2060 GOTO 2000 
2070 RETURN 

2080 PRINT “O valor das mercadorias que trouxe consieo ”• 
2090 PRINT" e ”;T;“$00.” ’ 

2100 PRINT “A sua pontuagao e ”;INT(T*11/M) 

2110 PRINT :PRINT:PRINT “Adeus”:END 
3000 PRINT “Um dia em que estava a passear pela parte 
3010 PRINT “velha dacidade encontrou um terreno coberto 
3020 PRINT “ de erva e rodeado por um muro alto. Este 
3030 PRINT ruira cm dado ponto, pclo que conseguiu 
3040 PRINT “ entrar e, depois de abrir caminho entre a 

3050 PRINT “vegetagao, atingir um caminho de cascalho 
que ; 

3060 PRINT “ oconduziu auma casa antiga.” 

3070 RETURN 
3990 REM Inventario 

4000 FOI 1 = 1 TO N9:IF A(I) = K THEN F = 1:RETURN 
4010 NEXT I:F = 0 

4020 PRINT “Necessitara de uma ”;A$(K); “ para abrir.” 
4030 F = 0:RETURN 


Exemplo de execu^ao 
Deseja instrugoes? NAO. 

Um dia em que estava a passear pela parte velha da cidade en¬ 
controu um terreno coberto de erva e rodeado por um muro al¬ 
to. Este ruira em dado ponto, pelo que conseguiu entrar e, de¬ 
pois de abrir caminho entre a vegetagao, atingir um caminho de 
cascalho que o conduziu a uma casa antiga. 

Voc6 est& junto ao lado sul de uma mansao do seculo passado, 
virado para a porta. No canto direito ve-se uma torre. A seu lado 
esta um tumulo em pedra. Talvez possa abri-lo...” 

Um momento por favor... 

O seu movimento? N 
Nao pode ir por ai. 

O seu movimento? E 

Voce esta junto ao lado leste da casa, com a torre a sua esquer- 
da. Ve uma janela partida por onde poderia entrar. 

Abaixo da janela est& uma velha caixa de ferramentas de jar- 
dinagem. 

O seu movimento? A 

Necessitara de uma chave pequena para abrir. 

O seu movimento? S 

Voce esta junto ao lado sul de uma mansao do seculo passado, 
virado para a porta. No canto direito ve-se uma torre. 
A seu lado esta um tumulo em pedra. Talvez possa abri-lo... 


O seu movimento? A 

Necessitara de uma chave de latao para abrir . 

O seu movimento? E 

Voce esta junto ao lado leste da casa, com a torre a esquerda. 
Ve uma janela partida por onde poderia entrar. 

Abaixo da janela esta uma velha caixa de ferramentas de jar- 
dinagem. 
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O seu movimento? A 

Necessitara de uma chave pequena para abrir. 

O seu movimento? N 

Atras da casa, no lado norte, voce ve uma ala do alpendre. 

Ao lado da porta traseira ve um caixao. 

O seu movimento? A 

Esta um(a) chave grande la dentro. Quer este objecto? 

S 

O.K. — eseu. 

O seu movimento? S 

Esta na porta traseira, aberta a norte. Para sul entra na casa, e 
existe outra porta para leste. Ve uma velha area. 

O seu movimento? A 

Esta um(a) lima la dentro. Quer este objecto? 

S 

O.K. — eseu. 

O seu movimento? S 

Esta num corredor escuro com uma porta em cada lado. No 
chao ve uma caixa de estanho. 

O seu movimento? A 

Esta um(a) chave de latao la dentro. Quer este objecto? 

S 

O.K. — eseu. 

O seu movimento? S 

Esta no hall, rodeado por paredes almofadadas. Uma escada 
sobe na escuridao. Ha portas para norte, sul, leste e deste, 
mas a de sul e a porta principal. Note que existe um armario 
debaixo das escadas. 

O seu movimento? A 


Esta um(a) chave de parafusos la dentro. Quer este objecto? 

S 

O.K. —eseu. 

O seu movimento? E , , 

Uma sala de estar, sem mobilia excepto um armario num 

canto. Ha portas para norte, oeste e leste. 

O seu movimento? A 

Necessitara de uma lata de oleo para abrir. 

O seu movimento? N . j 

Sala de jantar, com janelas a norte e a leste. A virada a norte 

esta semi-aberta. Numa parede esta uma mesa com um bolo 
bolorento por cima. Ao lado encontra-se um armario. 

Existem duas portas, uma para sul e outra para oeste. 

O seu movimento? A 

Esta um(a) lupa la dentro. Quer este objecto? 

S 

O.K. — eseu. 

O seu movimento? O 

Esta num corredor escuro com uma porta em cada lado. 

No chao ve uma caixa de estanho. 

O seu movimento? A 
Esta vazio. 

O seu movimento? O 

Esta na cozinha, com algumas manchas estranhas no chao. 
Existem portas para leste, sul e oeste e um grande fogao em 

ferro. 

O seu movimento? A 

Esta um(a) saco de moedas la dentro. Quer este objecto. 

S 

O.K. — e seu. 

O seu movimento? O 

Uma despensa apertada, com prateleiras dos dois lados. 
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Existe uma porta para leste e uma janela partida para oeste. 

Ve um velho armario enferrujado. 

O seu movimento? A 

Necessitara de uma serra para abrir. XXV 


O seu movimento? O 

Na parede oeste da casa esta uma janela aberta. 

Uma trepadeira cobre em parte um interessante paiol de 
carvao. A trepadeira permite-lhe entrar facilmente pela 
janela. Escreva E para o fazer ou A para abrir o paiol. 

O seu movimento? A 

Esta um(a) jornal velho la dentro. Quer este objecto? 

O seu movimento? S 

Voce esta junto ao lado sul de uma mansao do seculo passado, 
virado para a porta. No canto direito v£-se uma torre. A seu 
lado esta um tumulo em pedra. Talvez possa abri-lo... 

O seu movimento? A 

Esta um(a) tesouro la dentro. Quer este objecto? 

S 

O.K. — eseu. 

O seu movimento? S 

O valor das mercadorias que trouxe consigo e 360$00. 

A sua pontuagao e 132. 

Adeus. 


PISTOLEIRO (10,5 K) 

“Pistoleiro” permite a todos aqueles que sonham com o oeste 
americano viverem (ou morrerem...) algumas das suas fantasias. 
Podem jogar ate seis pessoas, e a medida que morrem podem re- 
comegar ou ser substituidas. 

Quando os jogadores escrevem os seus nomes, sao-lhes indica- 
das as suas caracteristicas pessoais, em termos de coragem, for- 
$a, velocidade e pontaria com uma pistola, assim como a sua re- 
putagao — que sera obviamente nula de inicio. Os jogadores de- 
vem tomar nota destas suas caracteristicas, que o ajudarao a de- 
cidir o melhor modo de enfrentar um inimigo. Por exemplo, tal 
como seria errado a um fraco desafiar algu6m para uma rixa, 
tambem aquele que possua uma boa pontaria mas seja lento a 
disparar deve comegar a faze-lo quando se encontra ainda a 
grande distancia da vitima. 

Depois de seis jogadores terem indicado os seus nomes, ou 
quando se carregou em RETURN depois de ser pedido um nome 
de um jogador que n&o existe, cada jogador e alternadamente 
obrigado a enfrentar um fora-da-lei. Primeiro e definido o local, 
e em seguida o insulto. Ambos estes aspectos sao import antes, 
porque o local define a distancia entre os adversarios (alem de 
outras coisas) e o insulto determina a reputagao que pode ser ga- 
nha. A distancia e indicada ao jogador, sendo-lhe ainda pergun- 
tado se deseja lutar ou fugir. Neste ponto s&o definidas as carac¬ 
teristicas do fora-da-lei, mas o jogador nao pode conhece-las^e 
bem que a m&quina forne^a uma pista ao imprimir a reputagao 

do fora-da-lei baseada naquelas. 

Se o jogador escolhe fugir porque a situagao nao lhe e favora- 
vel ou porque esta ocupado a abrir garrafas ou qualquer outra 
coisa, sao deduzidos pontos da sua coragem. Se este factor dimi- 
nui para zero e retirado do jogo. 


156 


157 



Numa luta, o jogador pode escolher entre varias acgoes. Se se 
move para a frente, a distancia e reduzida e se esta atinge zero ha 
uma luta corpo a corpo. Se nao, a iniciativa passa para o fora- 
-da-lei. Se o jogador escolhe disparar, o computador verifica pri- 
meiro se possui balas no carregador. Todos inieiam as lutas com 
seis balas no carregador, e o computador indica quando e neces- 
sario recarregar as armas. Esta recarga ocupa dois lances tanto 
no caso do jogador como do fora-da-lei. 

Em seguida, o computador verifica qual e o pistoleiro mais ra- 
pido — o jogador ou o adversario. O mais rapido faz dois dispa- 
ros. A possibilidade de atingir o adversario e determinada pela 
distancia e a pontaria de cada um dos opositores, em termos de 
percentages, e quando um deles e atingido o computador deter- 
mina aleatoriamente em que parte do corpo. A possibilidade de 
um tiro na cabega, causando morte imediata, e de um em nove. 
Os outros disparos provocam pontos de “danos” em fungao da 
gravidade da ferida. Estes pontos sao deduzidos da forga do jo¬ 
gador ou do fora-da-lei, e se esta chega a zero a vitima morre. 

O mesmo fora-da-lei nunca pode aparecer em dois lances con- 
secutivos, mas pode voltar a aparecer mais tarde. Por outro la- 
do, as caracteristicas dos fora-da-lei nao se mantem; sao diferen- 
tes de cada vez que aparecem. O leitor pode no entanto, se assim 
quiser, criar uma nova matriz que de a cada fora-da-lei caracte¬ 
risticas fixas. 

Pode-se disparar com um revolver de calibre .45 ou uma es- 
pingarda de repetigao Remington — o que e decidido pelo joga¬ 
dor em cada caso. Em qualquer dos casos apenas se dispoe de 
seis balas no carregador. A diferenga entre as duas armas consis- 
te em que o revolver faz 1,5 vezes mais danos do que a espingar- 
da, mas esta limitado a uma distancia eficaz de 100 jardas (cerca 
de 90 metros). A espingarda tern um rigor de dispqro superior de 
10%. 

As lutas corpo a corpo sao um pouco mais simples. A distSn- 
cia deve evidentemente ser nula, e o jogador pode ainda usar o 
seu revolver se o quiser (podendo ainda falhar, se hao tjyer pon¬ 
taria!). O computador escolhe aleatoriamente os golpes usadbs 
e, se tiverem exito, os danos causados, Numa luta deste tipo, no 
entanto, os jogadores nao sao mortos quando a sua forga se re- 
duz para zero — sko simplesmente postos “knock-out”, poden¬ 
do lutar novamente mais tarde. Todos os sobreviventes voltam k 


sua forga total depois de uma cena de tiroteio ou de luta corpo-a- 
-corpo. 

O jogador que vence recebe pontos de reputagao em fungao 
do insulto recebido e do local, por exemplo mais pontos por um 
insulto de morte num local mais dificil. Recebe tambem um pe- 
queno aumento de bravura, pelo que a,sua confianga aumenta... 
Quando a bravura chega a 90% ou mais, todas as suas outras ca¬ 
racteristicas — velocidade, pontaria e forga sao aumentadas ate 
20% do que falta para 100%. No entanto, o jogador nunca atin¬ 
ge 100% porque isso significaria ser invencivel. 

Quando todos os jogadores acabam de enfrentar um fora-da- 
-lei, o computador escolhe dois deles aleatoriamente e coloca-os 
frente a frente! Aplicam-se as mesmas regras, mas o modo como 
cada um deles joga depende de si mesmo. Apenas posso dizer 
que e raro que dois jogadores aceitem uma rixa em que ambos 
sobrevivem; normalmente um deles nao resiste e usa o seu revol¬ 
ver... 

Neste ponto, os jogadores que foram “mortos” podem reen- 
trar em jogo, ou ser substituidos por outros. Em nenhum mo¬ 
menta podem jogar mais de seis “pistoleiros’ \ 

Talvez parega ao leitor que o jogo tende a ter uma duragao m- 
determinada; no entanto, o jogo termina automaticamente 
quando apenas resta um jogador ou se um dos que estao em jogo 
chega aos 500 pontos de reputagao. A partir desse momenta o 
jogo torna-se demasiado previsivel, dado que as caracteristicas 
do jogador estao acima de 90%. 


Lista de variaveis 

Q$ String de entradas 
A(X,Y) Matriz de combate, onde 

X = Numero do combatente 
Y = 1 — Bravura ou coragem 

2 — Velocidade 

3 — Pontaria 

4 — Forga 

5 — Balas restantes (999 ao recarregar) 

6 — Numero 
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B(X,Y) Matriz do jogador, onde 
X = Numero do jogador 
Y = 1 — Bravura 

2 — Velocidade 

3 — Pontaria 

4 — Forga 

5 — Reputagao 
N$(X) Array de nomes, onde 

X = 1 a 6 — jogadores 
7 a 16 — foras-da-lei 
X Contador geral 
P Jogador actual 
P1 Numero de jogadores sobreviventes 
R Distancia; tambem memoria temporaria de 0 

O Fora-da-lei actual 

L Numero do local; tambem pontos perdidos 
I Numero de insulto 

Z Contador geral 

F Flag de combate; 0=jogador sobrevive; 

1 = jogador morto 

A Contador geral; tambem flag de movimentos, onde 
0 — Mover ou recarregar a arma 

1 — Disparar 

2 — Luta corpo-a-corpo 

S Vantagem de numero de tiros para o mais rapido 

U Individuo que dispara 

T Individuo sobre quern se dispara 

W$ Nome da arma usada 

H Possibilidade de atingir (percentagemj 
W Numero da ferida 

M Multiplicador da ferida 

V Vencedor, se for o j ogador 


Listagem do programa 

0010 PRINT :PRINT 

0020 PRINT TAB(20);‘‘PISTOIdEIRO’’ 

0030 PRINT TAB(20);“ = = = = = = =” 

0040 PRINT :INPUT “Deseja instrugoes (S-N)”,Q$ 


0050 IF Q$ = “S” GOSUB 9000 
0060 PRINT :DIM A(2,6),B(6,5),N$(16) 

0070 DATA Pedro Gonzalez, Big Jim Jackson, Snake-Eye 
Sam 

0080 DATA Mexican Pete, Ike Clancy, Bob Dalton, Jake the 
Halfbreed 

0090 DATA Holy Joe Daniels, Judge Roy Bean, Mad Mike 
McCafferty 

0100 REM — Array de jogadores 
0110 FOR X = 1 TO 6:PRINT 
0120 PRINT “Jogador n.”;X;“ — ”;:GOSUB 5000 
0130 IF N$(X)<>“” THEN NEXT X:X = 7 
0140 PI = X-l :REM — Numero de jogadores 
0150 REM — Acrescentar foras-da-lei ao array 
0160 FOR X = 7 TO 16:READ N$(X):NEXT X 
0199 REM — Primeiro loop ******** 

0200 P — 1 :REM — Primeiro jogador 
0210 IF B(P,1) - 0 THEN 680:REM — Fora de jogo 
0220 REM —- Nao repetir o mesmo fora-da-lei 
0230 R = 0:GOSUB 5100 

0240 O = INT(RND(0)*10 + 7):IF R = O THEN 240 
0250 PRINT N$(P);“ — encontrou ”;N$(0);” ”; 

0260 L = INT (RND(0)*6 + l):ON L GOTO 270,280,290, 
300,310,320 

0270 PRINT “no Last Chance Saloon.”:GOTO 330 
0280 PRINT “na estag&o de caminho de ferro.”:GOTO 330 
0290 PRINT “na rua principal de Dodge City.”:GOTO 330 
0300 PRINT “num desfiladeiro.”:GOTO 330 
0310 PRINT “fora da cidade.”:GOTO 330 
0320 PRINT “nas montanhas.” 

0330 PRINT “Ele ”;:I = INT(RND(0)*6+ 1) 

0340 ON I GOTO 350,360,370,380,390,400 
0350 PRINT “diz que voce o insultou.”: 

GOTO 410 

0360 PRINT “diz que voce e um cobarde.”:GOTO 410 
0370 PRINT “diz que 6 mais rapido do que voc§.”:GOTO 
410 

0380 PRINT “diz que voce lhe roubou o cavalo.”:GOTO 410 
0390 PRINT ‘‘exige que lhe de o seu dinheiro.’ J :GOTO 410 
0400 PRINT “diz que voce matou o iraulo dele.” 
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0410 REM — Distancia depende essencialmente do local 
0420 R = INT(RND(0)*L*L*10 + 3*1) 

0430 REM — Qualidades de luta do fora-da-lei 
0440 FOR Z = 1 TO 4:A(2*,Z) = INT(RND(0)x 100+ 1):- 
NEXTZ 

0450 REM — Reacgao do jogador 

0460 PRINT “Esta a distancia de ”;R;“jardas.” 

0470 INPUT “ Foge ou luta (F-L)”,Q$ 

0480 IF Q$ = “L” THEN 600 
0490 IF Q$ = “F” THEN 510 
0500 PRINT “Por favor, F ou L”:GOTO 470 
0510 PRINT “Sobrevive para outra ocasiao, mas este 
pequeno fiasco 

0520 L = INT(RND(0)*L*L + I*I):B(P,1) = B(P,1)-L 
0530 PRINT “ custou-lhe “;L;” pontosde bravura. Oseu 
valor e agora 

0540 PRINT B(P, 1): IF B (P, 1 )>0 THEN 680 

0550 PRINT “Isto faz de si um tal cobarde que nem merece 

> > . 

0560 PRINT “ uma cuspidela. Vou tira-lo deste jogo.” 
:B(P,1) = 0 

0570 PI = P1-1:IFP1 =0THENEND 
0590 GOTO 680 

0599 REM — terminar matriz de combate ‘A’ 

0600 FOR X = 1 TO 4:A(1 ,X) = B(P,X):NEXT X 
0610 A(l,5) = 6:A(2,5) = 6:REM — carregadores cheios 
0620 A(1,6) = P:A(2,6) = 0:REM — Indicador de nomes 
0630 REM — Rotina de luta 
0640 F = 0:GOSUB 3000 

0650 REM — Flag F = 1 quando fatal para o jogador 

0660 IF F = 0 THEN 680 

0670 PI = P1-1:IFP1 =0THENEND 

0680 P = P + 1 :IF P< = 6 THEN 210 

0690 GOSUB 5100 

0700 REM — Ja jogaram todos 

0710 IF P>1 THEN 740 

0720 PRINT “Parabens — Ganhou o jogo!”:END 
0730 REM — Por 2 jogadores frente a frente 
0740 PRINT 

0750 X = INT(RND(0)*6 + 1):IF B(X, 1) = 0 THEN 750 


0760 Y = INT(RND(0)*6 + 1):IF B(Y, 1) = 0 THEN 760 
0770 IF X = Y THEN 760 

0780 PRINT N$(X);“ e ”:N$(Y);“ discutiram a proposito do 
0790 PRINT “ gado. Estao a distancia de 
0800 R = INT(RND(0)*200 + 1):PRINT R;“ jardas e e 
impossivel 

0810 PRINT “ evitar o duelo. ”: F = 0 

0820 FOR A = 1TO 4:A(1 ,A) = B(X,A):NEXT A 

0830 FOR A = 1 TO 4: A(2,A) = B(Y,A):NEXT A 

0840 A(1,5) = 6:A(2,5) = 6 

0850 A(1,6) = X:A(2,6) = Y 

0860 GOSUB 3000 

0870 IF F = 0 THEN 900 

0880 PI =P1-1:IFP1 = 1 THEN 0720 

0890 REM — Substituir jogadores eliminados? 

0900 IF PI = 6 THEN 200 

0910 INPUT “Alguem quer entrar em jogo (S-N)”,Q$ 

0920 IF Q$ = “N” THEN 200 

0930 FOR X = 1 TO 6:IF B(X, 1)00 THEN 960 

0940 PRINT “Por favor ”;:GOSUB 5000 

0950 IF N$(X) = “” THEN 200 

0960 NEXT X:GOTO 200 

2999 REM — Rotina de combate ******** 

3000 S = 2:U = 1:T = 2 

3030 REM — U = activo (utilizador); T = alvo 

3040 IF A(U,6)< = 6 THEN 3080 

3050 REM — Escolha de movimentos pelo computador 

3060 GOSUB 5140:GOTO 3090 

3070 REM — Escolha de movimentos pelo jogador 

3080 GOSUB 5330 

3090 ON A+l GOTO 3810,3100,3510 

3100 REM — Uso das armas 

3110 PRINT “ levanta 

3120 IF W$ = “C” PRINT “o revolver 

3130 IF W$ = “R” PRINT “a espingarda 

3135 IF S < = 0 THEN 3190 

3140 REM — determinar mais rapido 

3150 IF A(U,2)>A(T,2) THEN 3180 

3160 X = U:U = T:T = X 

3170 PRINT ”;N$(A(U,6)):“ e mais rapido a sacar 
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3180 REM — calcular possibilidade de acertar 
3190 S = S-l :H = INT(A(U,3)-SQR(R)-RND(0)*5) 

3200 IF W$“R” THEN H = H+ 10:REM Melhor para 
espingarda 

3210 A(U, 5) = A(U, 5)-1: REM Gastar munigoes 
3220 IF RND* 100CH THEN 3240:REM — atinge? 

3230 PRINT “mas falha.”:GOTO 3460 
3240 PRINT “eacertaem ”;N$(A(T,6)); 

3250 W = INT(RND(0)*9 + 1) 

3260 ON W GOTO 3270,3280,3290,3300,3310,3320,3330, 
3340 3350 

3270 PRINT “ no brago esquerdo.”:GOTO 3360 
3280 PRINT “ no brago direito.”:GOTO 3360 
3290 PRINT “ no ombro esquerdo.”:GOTO 3360 
3300 PRINT “ no ombro direito.”:GOTO 3360 
3310 PRINT “ na perna esquerda.”:GOTO 3360 
3320 PRINT “ na perna direita.”:GOTO 3360 
3330 PRINT “ no peito.”:GOTO 3360 
3340 PRINT “ no estomago.”:GOTO 3360 
3350 PRINT “ na cabega.”:GOTO 3420 
3360 REM — Efeito do ferimento na forga 
3370 M = 6:IF W$ = “R” THEN M = 4:REM — Maior para 
resolver 

3380 A(T,4) = A(T,4)-W*M 
3390 REM Informar estado do jogador 
3400 IF A(T,6)< = 6 THEN PRINT A(T,4); “ — forga 
rcstcintc * * 

3410 IF A(T,4) 0 THEN 3470: REM — sobreviveu? 

3420 PRINTN$(A(T,6));“ estamorto!” 

3430 REM — Flag e eliminar se for jogador 
3440 IF A(T,6)>6 THEN 3680 
3450 F = 1 :B(A(T,6)) = 0:GOTO 3680 
3460 REM — Primeiro dar dois tiros 

3470 IF S>0 THEN PRINT “Dispara de novo ”;:GOTO 
3190 

3480 GOTO 3810 

3510 REM — Corpoacorpo 

3520 W = INT(RND(0)*9+1) 

3530 ON W GOTO 3540,3550,3560,3570,3580,3590,3600, 
3610,3620 


3540 PRINT “ falhou! ”: GOTO 3 810 

3550 PRINT “prendeu o brago!”:GOTO 3630 

3560 PRINT “caiu ao chao!”:GOTO 3630 

3570 PRINT “meteu um joelho nas costelas!”:GOTO 3630 

3580 PRINT “apertou o pescogo!’’:GOTO 3630 

3590 PRINT “pontapeou no estomago!”:GOTO 3630 

3600 PRINT “pontapeou na perna! ”:GOTO 3630 

3610 PRINT “deu um murro no alto da cabega! 

GOTO 3630 

3620 PRINT “tentou estrangular!” 

3630 A(T, 4 ) = A(T,4)-INT(A(U,4)*W/10):REM - Ajustar 
for^a 

3640 IF A(T,4)< = 0 THEN 3670:REM — KO? 

3650 IF A(T,6)< = 6 THEN PRINT A(T,4):“ forga restan 

te” 


3660 GOTO 3810 

3670 PRINT N$(A(T,6)):“ esta K.O.!” 

3680 REM — Ajustamento se o vencedor for o jogador 

3690 IF A(U,6)>6 RETURN 

3700 V = A(U,6):PRINT “Boaluta, ”;N$(V);“!” 

3710 B(V,5) = B(V,5) +1 + INT(RND(0)*20/L + 1) 

3720 B(V,1) = B(Y,1) + INT(RND(0)*5 + 5 
3730 REM — Ajustar outros coeficientes? 

3740 IF B(V, 1)<90 THEN 3790 

3750 FOR X = 2 TO 4 _ , 

3760 B(V,X) = B(V,X) + INT((100-B(V,X))/5*RND(0)) + 1 
3765 REM Nao permitir invencibilidade 
3770 IF B(V,X)>= 100 THEN B(V,X) = 100-INT(RND 

(0) + *10 + 1) 

non hcvt v.tc vuv l — 1 on THEN TUV. 11 = 100 — INT 


(RND(0)*10+ 1) 

3790 X = V:GOSUB 5040:RETURN 
3800 REM — Movimentos alternados 
3810 X = T:T = U:U = X:GOTO 3040 

4999 REM — Entrada de caracteres ****** 

5000 INPUT “Escreva o seu nome ”,N$(X) 


5010 IF N$(X) = THEN RETURN 

5020 B(X,5) = 0:REM — Reputagao xT _ v _ 

cnan nrm v - 1 toa-WX Y 1 ) = INTf RND(0)*90 + 10): NEXT 


Y 

5040 PRINT “Os seus coeficientes sao 
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5050 PRINT “Bravura - ”;B(X,1);“%” 

5060 PRINT “Velocidade - ”;B(X,2);“%” 

5070 PRINT “Pontaria— ”;B(X,3);"%” 

5080 PRINT “For?a — ”;B(X,4);“%” 

5090 PRINT "Reputagao — ”;B(X,5):RETURN 
5100 PRINT 

5110 PRINT “****** Por favor carregue em 
RETURN ******” 

5120 INPUT Q$:PRINT:RETURN 

5130 REM — Movimento do fora-da-lei ***** 

5140 PRINT :PRINT N$(0);:A = 0 

5150 IF A(U,5)<>0 THEN 5170 

5155 REM — Dois tempos para recarregar 

5160 PRINT" carrega a arma.”:A(U,5) = 999:GOTO 5280 

5170 IF A(U,5)0999 THEN 5190 

5180 PRINT “ esta a carregar a arma.”:A(U,5) = 6:GOTO 
5280 

5190 IF A(U,3)>60 THEN 5260 

5200 IF R> = 3 THEN 5210 

5205 PRINT “ataca-o - ”;:A = 2:RETURN 

5210 IF RND>.25 THEN 5260 

5220 PRINT" avanga. A distancia e agora 

5225 IF R = 0 THEN PRINT "Ele ”;:GOTO 5205 

5230 GOSUB 5290: RETURN 

5240 REM — Flag de ataque ‘A’ = 0 = Nao ha ataque 

5250 REM — A = 1 = Armas e A = 2 = Luta corpo a corpo 

5260 A = 1 :W$ = “R”:IF R>100 GOTO 5280 

5270 IFRNDX33 W$ = "C” 

5280 RETURN 
5290 REM — Avangar 

5300 R = INT(R—5—(RND(0)*R/4)):IF R<0 THEN R - 0 
5310 PRINT R;“ jardas.” 

5320 RETURN 

5330 REM — Escolha de movimentos pelo jogador 
5340 PRINT :A = 0:PRINT N$(A(U‘,6));“ — 

5350 IF A(U,5)0999 THEN 5370 
5360 PRINT “Voce esta a carregar a arma.”:A(U,5) = 6: 
RETURN 

5370 INPUT "Carregar, disparar, mover ou lutar 
(C,D,M,L)”,Q$ 


5380 IF Q$<>"D” THEN 5470 
5390 IF A(U,5)>0 THEN 5410 
5400 PRINT “Disparou 6 tiros — tern de carregar a 
arma.”:GOTO 5350 

5410 INPUT “Revolver ou espingarda (R-E)”,W$ 

5420 IF W$ = “E”THEN A= 1:PRINT N$(A(U,6));: 
RETURN 

5430 IF RC100 THEN 5450 

5440 PRINT "A distancia e demasiado grande para um 
revolver. “:GOTO 5370 

5450 IF W$0“R” THEN PRINT "Por favor escreva R ou 
F M *GOTO 5410 

5460 A = 1 :PRINT N$(A(U,6));:RETURN 
5470 IF Q$ = "C” THEN A(U,5) = 999:RETURN 
5480 IF Q$<>“M” THEN 5510 

5485 IFR = 0THEN 5540 mnra 

5490 PRINT "Voce avanga. A distancia e agora ;:GOSUB 


5290 

5495 IF R = 0 THEN 5540 

5500 RETURN ^ „ w 

5510 IF 0$<>“L” PRINT "Por favor escreva C,D,M ou 

L”:GOTO 5370 

5520 IF R<3 THEN 5540 „ __ Tn 

5530 PRINT “Esta demasiado longe para atacar. :G010 

5370 

5540 A = 2:PRINT “VocS ataca-o — ”;:RETURN 
9000 PRINT "Neste jogo podem participar 6 pessoas ’’; 
oAio ddT xnr “rpnrpcpTitimHn rarar.te.res do Far-West. Encon 


Irani * * * 

902o’ PRINT “ foras-da-lei, desafiam-nos para lutas a tiro 
9030 PRINT “e corpo a corpo. Os jogadores ganham pontos 
9040 PRINT “ de reputagao, vencendo aquele que primeiro ; 
9050 PRINT "atingir 500, ou o unico que ficar vivo.” 

9060 PRINT :INPUT “Carregue em RETURN para 

comegar”,Q$ . , 

9070 PRINT "Ao ser-lhe perguntado, cada jogador deve ; 
9080 PRINT " escrever o seu nome. Quando nao ha mais jo 

gadores 

9090 PRINT “carrega-se em RETURN sem escrever 
qualquer 
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Exemplo de execugao 


9100 PRINT “ nome. Os jogadores recebem um valor de 
bravura,”; 

9110 PRINT “ velocidade e pontaria com a arma, e 
forga. ”; 

9115 PRINT “Deve tomar nota destes valores, pois 
ajuda-”; 

9120 PRINT “lo-ao a tomar algumas decisoes.” 

9130 PRINT “Todos os jogadores possuem um revolver 
.45 ”; 

9140 PRINT “ e uma espingarda de repetigao Remington.” 

9150 PRINT :INPUT “Carregue em RETURN”,Q$ 

9160 PRINT “Os revolveres produzem mais danos, mas 
nao”; 

9170 PRINT “ s^o tao rigorosos como a espingarda, e so ”; 

9180 PRINT “disparam ate distancias de 100 jardas. ”; 

9185 PRINT “Nenhum jogador pode disparar mais de 6 
balas ”; 

9190 PRINT “sem recarregar, mas o mais rapido 
atirar a ” 

• 9195 PRINT “arma dispara duas vezes primeiro. ” 

9200 PRINT “Em vez de disparar, pode aproximar-se do seu 

9210 PRINT “ inimigo a fim de aumentar as possibilidades ” 

9220 PRINT “ de acertar nele, e se se aproximar 
suficientemente ”; 

9230 PRINT “ pode lutar corpo a corpo sem usar as 
armas. ” 

9240 PRINT “Se fugir do seu inimigo, isto diminui os seus ”; 

9245 PRINT “ pontos de bravura. Se estes atingirem zero 
ser £ * * • 

9250 PRINT “ retiradodejogo.” 

9260 PRINT :INPUT “Carregue em RETURN”,Q$ 

9270 PRINT “Quando um jogador e morto, pode ser 
substituido ”; 

9280 PRINT “ por outro. Por vezes dois jogadores 
enfrentar-”; 

9290 PRINT “ se-So entre si, aplicandcx-se as mesmas regras.” 

9300 PRINT “E e tudo. Bebamum copo, e partamos...” 

9310 PRINT :INPUT “Carregue em RETURN”,Q$: 
RETURN 


Deseja instrugoes (S-N)? N 

Jogador n. 1 — Escreva o seu nome? TINY TIM 
Os seus coeficientes sao — 

Bravura — 35% 

Velocidade — 32% 

Pontaria — 98% 

Forga — 10% 

Reputagao — 0 

Jogador n. 2 — Escreva o seu nome? DANGEROUS DAN 
Os seus coeficientes sao — 

Bravura — 67% 

Velocidade 19% 

Pontaria — 80% 

Forga — 54% 

Reputagao — 0 

Jogador n. 3 — Escreva o seu nome? CLINT EASTWOOD 
Os seus coeficientes sao — 

Bravura — 92% 

Velocidade — 59% 

Pontaria — 48% 

Forga — 41% 

Reputagao — 0 

Jogador n. 4 — Escreva o seu nome? SAM SMALL 
Os seus coeficientes sao — 

Bravura 73% 

Velocidade —73% 

Pontaria — 73% 

Forga — 80% 

Reputagao — 0 

Jogador n.5 — Escreva o seu nome? 

****** p or f avor carregue em RETURN ****** 

TINY TIM — encontrou Mexican Pete fora da cidade. 

Ele exige que lhe de o seu dinheiro. 
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Esta a distancia de 64 jardas. 

Foge ou luta (F-L)? L 

TINY TIM — Carregar, disparar, mover ou lutar (C,D,M,L)? D 
Revolver ou espingarda (R-E)? R 

TINY TIM levanta o revolver. Mexican Pete e mais rapido 
a sacar e acerta em TINY TIM no brago esquerdo. 

4 — forga restante. 

Dispara de novo e acerta em TINY TIM no peito. 

— 38 — forga restante 
TINY TIM esta morto! 

****** Por favor carregue em RETURN ****** 

DANGEROUS DAN — encontrou Jake the Halfbreed fora 
da cidade. 

Ele exige o seu dinheiro. 

Esta a distSncia de 62 jardas. 

Foge ou luta (F-L)? L 

DANGEROUS DAN — Carregar, disparar, mover ou lutar 
(C,D,M,L)? D 

Revolver ou espingarda (R-E)? R 

DANGEROUS DAN levanta o revolver. Jake the Halfbreed e 
mais rapido 

rapido a sacar e acerta em DANGEROUS DAN no estomago. 
6 — forga restante. 

Dispara de novo e acerta em DANGEROUS DAN na cabega. 
DANGEROUS DAN esta morto! 

****** Por favor carregue em RETURN ****** 

CLINT EASTWOOD — encontrou Mexican Petg num 
desfiladeiro. 

Ele exige o seu dinheiro. 

Esta & distancia de 136 jardas. 

Foge ou luta (F-L)? L 

CLINT EASTWOOD — Carregar, disparar, mover ou lutar 
(C,D,M,L,)? M 

Voce avanga. A distancia e agora 112 jardas. 
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Mexican Pete levanta a espingarda. CLINT EASTWOOD e 
mais rapido a sacar e acerta em Mexican Pete na perna 
direita. 

Mexican Pete esta morto! 

Boa luta, CLINT EASTWOOD! 

Os seus coeficientes sao — 

Bravura — 97% 

Velocidade — 67% 

Pontaria — 56% 

Forga — 45% 

Reputagao — 10 

****** Por favor carregue em RETURN ****** 

SAM SMALL — encontra Pedro Gonzalez na estagao de 

caminho de ferro. 

Ele diz que voce e um cobarde. 

Esta a dist§ncia de 35 jardas. 

Foge ou luta (F-L)? L 

SAM SMALL — Carregar, disparar, mover ou lutar 
(C,D,M,L)? M 

Voce avanga. A distancia e agora 27 jardas. 

Pedro Gonzalez levanta o revolver. SAM SMALL e mais 
rapido a sacar mas falha. 

Dispara de novo e acerta em Pedro Gonzalez no estomago. 
Pedro Gonzalez esta morto! 

Boa luta, SAM SMALL! 

Os seus coeficientes sao — 

Bravura — 82% 

Velocidade — 73% 

Pontaria — 73% 

Forga — 80% 

Reputagao — 12 

****** Por favor carregue em RETURN ****** 

SAM SMALL e CLINT EASTWOOD discutiram a propOsito 

dogado. . , . 

Estao a distancia de 120 jardas e e impossivel evitar o duelo. 
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SAM SMALL — Carregar, disparar, mover ou lutar 
(C,D,M,L)? M 

Voc6 avanga. A distancia e agora 88 jardas. 

CLINT EASTWOOD — Carregar, disparar, mover ou lutar 
(C,D,M,L)? M 

Voce avanga. A distancia e agora 79 jardas. 

SAM SMALL — Carregar, disparar, mover ou lutar 
(C,D,M,L)? M 

Voce avanga. A distancia e agora 72 jardas. 

CLINT EASTWOOD — Carregar, disparar, mover ou lutar 
(C,D,M,L)? M 

Voce avanga. A distancia e agora 60 jardas. 

# 

SAM SMALL — Carregar, disparar, mover ou lutar 
(C,D,M,L)? M 

Voce avanga. A distancia e agora 43 jardas. 

CLINT EASTWOOD — Carregar, disparar, mover ou lutar 
(C,D,M,L)? M 

Voce avanga. A distancia e agora 34 jardas. 

SAM SMALL — Carregar, disparar, mover ou lutar 
(C,D,M,L)? M 

Voce avanga. A distancia e agora 25 jardas. 

CLINT EASTWOOD — Carregar, disparar, mover ou lutar 
(C,D,M,L)? D 

Revolver ou espingarda (R-E)? R 

CLINT EASTWOOD levanta o revolver. SAM SMALL e 
mais rapido a sacar e acerta em CLINT EASTWOOD no est6- 
mago. 

-9 — forga restante. 

CLINT EASTWOOD esta morto! 

Boa luta, SAM SMALL! 

Os seus coeficientes sao — 

Bravura — 90% 

Velocidade — 70% 


Pontaria — 77% 

Forga — 83% 

Reputagao — 19 
Parab6ns — Ganhou o jogo! 

READY 
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XXVI 

BOND 007 (13 K) 

Eis a sua possibilidade de superar James Bond! A sua tarefa 
consiste em recuperar certos pianos secret os e entrega-los a M, 
em Londres. So tres pessoas conhecem a localizagao desses pia¬ 
nos — e uma delas tem-nos em seu poder. O problema consiste 
em que voce tern de interrogar 100 suspeitos em 10 cidades dife- 
rentes; e pior ainda, nem todos eles lhe vao dizer a verdade — al- 
guns tentarao pelo contrario obstruir a sua investigagao. Vai 
descobrir como e dificil esta profissao, mesmo tendo licenga pa¬ 
ra matar... 

O jogo baseia-se numa sequencia de ligagdes. Um agente tern 
os pianos em seu poder, e dois outros conhecem este facto. Seis 
outros sabem quern sao os tres primeiros, mas nao sabem qual 
deles tern os pianos; sabem quern sabe... Dezasseis outros (ainda 
me esta a acompanhar?!) julgam que sabem quern sabe, e os ou¬ 
tros ouviram rumores ou nao sabem coisa alguma (nao quer des- 
cansar um pouco?). 

De qualquer modo, se tudo se resumisse a isto (!), bastaria al¬ 
guma persistencia para chegar aos pianos. Ora acontece que os 
agentes podem ser homens ou mulheres. Pior aindq, podem ser 
ingleses, americanos, russos ou locals. Os agentes ingleses dirao 
normalmente a verdade, e os americanos indicarao o agente que 
convem contactar mas falsearao o nome da cidade. Os agentes 
locais dir-lhe-ao qual a cidade correcta mas indicarao um agente 
errado, e como e sabido nao vale a pena acreditar numa palavra 
do que disser um agente russo. Outro inconveniente ainda: voce 
nem sempre sabera qual a nacionalidadfc do agente, e portanto 
nao sabera se esta a mentir ou nao! A unica excepgao a isto sao 
os agentes ingleses a quern voce fornecer a senha correcta. 


Ainda pensa que consegue encontrar os pianos? 

Para ajudar, o agente ingles residente em cada cidade conhece 
os numeros de alguns dos contactos na cidade (nem todos, pois 
podem estar clandestinos). Por outro lado, se amedrontar alguns 
agentes suficientemente, dir-lhe-ao a verdade. Outros nao menti- 
rao se lhes der uma tareia, enquanto alguns agentes (leminmos) 
estarao dispostos a responder as suas perguntas se gostarem de si 
— nem tudo emau! 

Pode conseguir alguns indicios a partir da mortandade que en- 
tretanto prossegue: aparecem corpos a flutuar no Tibre, cam ° 
do muro de Berlim ou decorando as sarjetas de Nova Iorque. Es- 
tas mortes acabam por ser conhecidas por “M”, que lhe passa as 
informagoes. Gradualmente voce acaba por descobrir em quern 
pode confiar ou nao. A pouco e pouco sao cada vez mais os mdi- 

cios que apontam numa dada direcgao 

Tenha cuidado! Existem muitos outros pormenores neste jogo 
que seria demasiado longo explicar-lhe. E muito melhor ler a lis- 
tagem e jogar, mas nao espere ganhar — pelo menos nos primei¬ 
ros tempos... , 1 O 

O jogo evolui em torno da matriz de espioes A, na qual para 

cada um de cem agentes existem quatro colunas. A primeira e o 
sexo do agente: 0 para as mulheres, 1 para os homens. A coluna 
seguinte indica a localizagao do agente, um numero entre 1 e 1U 
que corresponde as dez cidades do quadro L$. A terceira indica a 
pessoa que o agente julga possuir os pianos, enquanto a quarta 
indica a nacionalidade do agente. A coluna 3 produz as ligagoes 
entre os agentes, mas nao se esquega de que algumas destas serao 
enganadoras e outras nao conduzirao a nada; isto e, a coluna es- 

taraembranco. A 

Chamo em especial a sua atengao para as linhas 1IU e 13U, que 

se tornam necess4rias devido ao modo como o computador esco- 
lhe um numero aleatbrio: nao escolhe. Para por a questao mais 
claramente, quando se pede ao computador que produza um nu¬ 
mero aleatorio, aquele realiza um calculo a partir de um numero 
anterior. Isto significa que, a partir de um dado numero, o com¬ 
putador indicara, produzira sempre um mesmo numero. Como 
a maior parte das versoes da BASIC partirao do mesmo numero 
original sempre que sao ligadas, segue-se que a partir dai apre- 
sentarao sempre a mesma sequencia de numeros. Como no en- 
tanto a sequencia so sera repetida muitos milhares de numeros 
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depois, chama-se de facto ao numero produzido “pseudo-alea¬ 
toric”. 

Nestas condigoes, de cada vez que ligar o computador e carre- 
gar um dado programa ira jogar o mesmo jogo, porque as ins- 
trugoes de produgao de numeros aleatorios apresentarao sempre 
os mesmos numeros. E por isso que utilizo aqui as linhas 110 e 
130. Qualquer caracter escrito e transformado no seu codigo AS¬ 
CII e o computador produz esse numero de valores aleatorios. 
Claro que se for sempre escrito o mesmo caracter o jogo se repe- 
tira, mas e improvavel que tal acontega; de qualquer modo, a 
questao so e importante da primeira vez que o jogo e jogado de¬ 
pois de ligar a maquina. 

A linha 480 produz uma palavra codigo de 3 letras recorrendo 
a tres numeros aleatorios equivalentes aos codigos ASCII entre 
A e Z, juntando depois estas. Se quiser pode omitir as linhas 540 
a 600 inclusive; servem apenas para imprimir em papel os nume¬ 
ros 1 a 100 dispostos em colunas com titulos (a minha impresso- 
ra esta ligada ao “port” 7). Esta lista serve apenas para facilitar 
o jogo, podendo ser substituida por outra feita a mao num peda- 
£0 de papel. 

Voce “contacta” um agente escrevendo muito simplesmente o 
seu numero — desde que estejam ambos na mesma cidade. A 
resposta ser k entao imediata. Se nao acreditar no que lhe dizem, 
pode atacar um agente; mas note que isto lhe custa 200 pontos, 
diminuidos a sua pontuagao final se conseguir descobrir os pia¬ 
nos (se nao conseguir a sua pontuagao e zero). Por outro lado, se 
o agente o ataca, a sua pontuagao nao e afectada. 

Se o agente contactado e ingles, e-lhe pedida a sua senha. Esta 
e-lhe indicada no inicio do jogo, e se a tiver esquecido ou se en- 
ganar o agente dar-lhe-a indicates erradas. 

Em conclusao, este jogo nao e facil — nem pre(endese-lo. 
Tentei incluir tantos aspectos “reais” quanto me foi; possivel, e 
isso contribui evidentemente para dificulta-lo. 
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Lista de variaveis 

Ax(X,Y)Matriz dos espioes, onde 
X = Numero do agente e 
Y = 1 — Sexo 0 ou 1 (99 se morreu) 

2 — nacionalidade 0-4 

3 — Informagao0-100 

4 — Localizagao 1-10 


Q(X) 

Quadro de liga?oes temporarias 

L$(X) 

Quadro contendo nomes de cidades 

Q$ 

String de entradas 

Q 

Contador de series aleatorias 

X 

Contador geral 

p 

Agente com pianos 

Y 

Contador geral 

Z 

Contador geral; tambem atributo do jogador actual 

A 

Resposta do agente 

B 

Contador geral 

L 

Posigao actual 

S 

PontuagEo actual 

LI 

Contador de posigoes 

R 

Numero aleatorio; tambem numero de resposta 

Cl 

Numero de contacto 

C 

Contacto actual 

P$ 

Palavra de passe 

F 

Flag 


Listagem do programa 

0010 PRINT TAB(20); “BOND 007” 

0020 PRINT TAB(20);“ = = = = =” 

0030 PRINT 

0040 DIM A(100,4),Q(8), L$(10) 

0050 DEF FNA(X) = INT (RND(0)* 100 + 1) 

0060 DEF FNB(X) = INT(RND(0)*4 + 1) 

0070 DEF FNC(X) = INT(RND(0)*10+ 1) 

0090 INPUT “Deseja instru?oes”,Q $ 

0100 IF LEFT$(Q$, 1) = “S” THEN GOSUB 8000 
0110 INPUT “Importa-se de escrever um caracter”, Q$ 
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0120 PRINT “Ummomento.” 

0130 Q = ASC(Q$):FOR X = 1 TO Q:A = RND:NEXT X 
0140 REM — Definir matriz 

0160 DATA Londres, Paris, Roma, Nova Iorque, Toquio 
0170 DATA Istambul, Hong-Kong, Caracas, Berlim, 
Moscovo . 

0180 FOR X = 1 TO 10:READ L$(X):NEXT X 

0220 REM — Colocar pianos secretos 

0230 P = FNA(X):A(P,3) = P 

0240 REM — Dois sabem onde estao 

0250 Z = 3:FOR X = 1 TO 2:GOSUB 9000 

0260 Q(X) = A:A(A,3) = P:NEXT X 

0270 REM — Seis sabem quern sabe 

0280 FOR B = 1 TO 2:FOR Y = 1 TO 3:GOSUB 9000 

0290 A(A,3) = Q(B):X = X + 1 :Q(X) = A:NEXT Y: NEXT B 

0300 REM — 16 pensam que sabem 

0310 FOR Y= 1 TO 2:FOR X = 1 TO 8:GOSUB 9000 

0320 A(A,3) = Q(X):NEXT X:NEXT Y 

0340 FOR X = 1 TO 100:IF RNDX8 THEN 360 

0350 IF A(X,3) = 0 THEN A(X,3) = FNA(X) 

0360 A(X,4) = FNC(X):REM — Posigao 
0370 IF RND .1 THEN A(X,1) = 1:REM sexo 
0380 IF RND .3 THEN A(X,2) = FNB(Y):REM— 
Nacionalidade 
0390 NEXT X 

0450 PRINT “ 007 — descubra esses pianos e traga-mos!” 
0460 PRINT “Sugiro que contacte o nosso agente n.”; 

0470 FOR A = 1 TO 100:IF A(A,2)<>1 THEN NEXT A 
0475 PRINT A;“ em ”;L$(A(A,4));“ — parece estar 
0480 FOR X=1 TO 3:P$ = P$ + CHR$(INT(RND(0)* 
26+ 65)): NEXT X 

0490 PRINT “em perigo. A senha e ”;P$;“.” 

0510 PRINT “Oh — e alguns dos agentes em Londres neste 
0520 PRINT “ momento (ingleses e estrangeiros) sao — 

0530 L = 1 :Z = 1 :S = 10000:GOSUB 9540 
0540 INPUT “Deseja uma lista impressa” ,Q$ 

0550 IF LEFT$(Q$,1)0“S” THEN 1000 
0560 INPUT “Tem a impressora ligada”,Q$ 

0570 IF LEFT$(Q$,1)<>“S” THEN 1000 
0580 LINE = 100:FOR X = 1 TO 4 


0590 PRINT #7, “AGENTE LOCAL INDICIO”; 

0600 PRINT #7,TAB(X*20);:NEXT:PRINT #7 

0610 FOR X= 1 TO 25 

0620 FOR Y = 0TO3 

0630 PRINT #7,TAB(20*7);X + 25*Y; 

0640 NEXT Y:PRINT #7 
0650 NEXT X:LINE = 72 
0999 REM Inicio do loop principal 
1000 GOSUB 9020: GOTO 1200 
1010 INPUT “Para onde, James”,Q$ 

1020 FOR LI = 1 TO 10:IF Q$ = L$(L1) THEN 1070 
1030 NEXT LI 

1040 PRINT ‘‘Nao existe esse local no jogo.’’ 

1050 PRINT “Nao deve ter escrito bem...”:S = S-10:GOTO 
1010 

1070 IF LI =L THEN 1130 
1080 IF RND(0)>.1 THEN 1130 

1090 PRINT “O aviao foi sabotado e explodiu em voo! ” 

1100 IF RND(0)<.4 THEN 1640 
1120 PRINT “No entanto, voce nSo ia nele!” 

1130 PRINT “Voce esta agora em ”;L$(L1 :L = L1:S = S-100 
1140 PRINT :IF RNDXl THEN 1200 
1150 PRINT :PRINT “Ha uma mensagem de “M”, vinda de 
Londres.” 

1160 R = FNA(X):IF A(R,1)>10 THEN 1160 
1170 A(R,1) = 99:Z = A(R,4):PRINT “A mensagem diz —” 
1180 PRINT “O AGENTE”:GOSUB 9570:PRINT “N. ”;R; 
“ EM ”;L$(Z); 

1190 PRINT “ FOI ASSASSINADO.” 

1192 IF POR THEN PRINT “ Fim da mensagem.”:GOTO 
1200 

1194 PRINT “ TINHA OS PLANOS NO BOLSO. VOLTE 
PARA LONDRES.”:GOTO 1640 

1200 PRINT :PRINT “Voce esta ainda em ”;L$(L) 

1210 INPUT “O seu contacto ”,C1:S = S-2:IF Cl =0 THEN 
1010 

1220 IF Cl>100 THEN PRINT “Numero muito alto!”: 
GOTO 1210 

1230 IF C = Cl THEN GOSUB 9340:S = S-5:PRINT 
“acabou de sair.”:GOTO 1140 
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1240 IF A(C1,1)>10 THEN GOSUB 9340:PRINT “esta 
morto!”:GOTO 1270 

1250 C = Cl :IF A(C,4) = L THEN 1300 
1260 GOSUB 9340:PRINT “Nao esta aqui! ” 

1270 PRINT “ Voce ve dois policias aproximando-se.” 

1280 IFRNDXl THEN 1290 
1285 GOSUB 9050:GOTO 1140 

1290 PRINT “Consegue escapar pelas traseiras. :G010 
1140 

1300 PRINT :PRINT:GOSUB 9630 
1302 IF A(C,2) = 1 THEN 1900 

1304 IF RND>.5 THEN 1530 

1305 ON A(C,2) + 1 GOTO 1310,1360,1320,1360,1340 
1310 R = 50:GOTO 1330 

1320 R = 5 

1330 IF R< = RND(0)* 100 THEN 1360 

1340 IF RND>.8 THEN 1380 

1341 R = FNA(X):IFR = A(C,3)THEN 1341 
1345 IF R = C THEN 1341 

1350 GOTO 1370 
1360 R = A(C,3) 

1370 IF R>0 THEN 1390 

1380 PRINT ‘“Nada sei, sr. Bond — 6 verdade! :GOTO 
1490 

1390 IF R = P THEN 1340 

1400 PRINT ‘“Procure o agente n.”;R;“ em 

1410 ON A(C,2) + 1 GOTO 1420,1470,1430,1450,1450 

1420 LI =50:GOTO 1440 

1430 LI = 5 

1440 IF Ll< = RND(0)*100 THEN 1470 
1450 LI = FNC(X):IF LI = L THEN 1450 
1460 GOTO 1480 

1470 L1=A(R,4) __ 

1480 PRINTL$(L1);“‘”:IFA(C,2)= 1 THEN 1200 
1490 PRINT :INPUT “Acredita” ,Q$ 

1500 IFLEFT$(Q$,l) = “s” then 1140 

1510 IF A(C,1)= 1 THEN 1515 

1512 GOSUB 9350:GOTO 1630 

1515 S = S-200-.REM Castigo por provocagao 

1520 PRINT “VocS ataca-o!”:GOSUB 9300:GOTO 1630 


1530 REM — Segundo interrogators 
1540 A = INT(A(C, 1)*A(C,2)*L*RND(0)) + 1 
1545 IF A>7 THEN 1270 

1550 ON A GOTO 1560,1380,1340,1800,1610,1710,1270 
1560 IF A(C,1) = 0 THEN 1700 
1570 GOTO 1800 ' 

1610 PRINT “ De subito, ”;:GOSUB 9340:PRINT “ 
ataca-o!” 

1620 GOSUB 9300 

1630 ONF+ 1 GOTO 1700,1650,1640,1340 
1640 PRINT “Perdeu! Era ”;P;“ quern tinha os 
pianos. ”:END 

1650 IF L> = 9 THEN GOSUB 9130 
1660 PRINT “Acordou no meio do lixo de um beco. Esta a 
1670 PRINT “ sangrar e tern o corpo cheio de nodoas 
negras.” 

1690 A(C,4) = FNC(X):S = S-250:GOTO 1140 Fig. 163 
1700 PRINT “ Estabem! diz o agente n.”;C;“.” 

1710 IF COA(C,3) THEN 1750 
1720 PRINT ‘ ‘ ‘Tenho os pianos aqui! ’ ” 

1730 PRINT: PRINT :PRINT “VOCE GANHOU!” 

1740 PRINT “A sua pontuagao foi ”;S:END 
1750 IF A(C,2)<>4 THEN 1770 
1760 IF RND .1 THEN 1340 
1770 IF A(C,3) = 0 THEN 1380 

1780 PRINT ‘“Contacte agente n.”;A(C,3);“em”;L$- 
(A(A(C,3),4));“”’ 

1790 GOTO 1140 

1800 PRINT “De subito, ”;:GOSUB 9340:PRINT “Corre. 
Voce 

1810 PRINT “persegue ”;:GOSUB 9780 
1820 IF RNDX3 THEN 1870 

1830 PRINT “mas perde ”;:GOSUB 9780:PRINT “ num 
labirinto de ruelas.” 

1840 PRINT ‘‘Maldita sorte! Voce sente que ”; 

1850 PRINT “ nao passara muito tempo antes de 
GOSUB 9340:PRINT “ fugir de aviao.” 

1860 A(C,4) = FNC(X):S = S-50:GOTO 1140 
1870 PRINT “e encontra-o num parque de 
estacionamento.”:GOTO 1700 
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1900 REM — Agente ingles 

1910 PRINT :INPUT “Qual e a senha”,Q$ 

1920 IF P$OQ$ THEN 1310 
1925 IFL=1 THEN 1950 

1930 PRINT :PRINT “Bem-vindo a ”;L$(L); “ sr. Bond.”; 
1940 PRINT “Londres disse-me que estava para chegar.” 

1950 IF C = A (C,3) THEN 1720 

1960 INPUT “Deseja uma lista dos agentes que estao 
aqui”,Q$ 

1970 IF LEFT$(Q$,1) = “S” THEN Z = L:GOSUB 9540 

1980 IF A(C,3)0 THEN 1360 

2010 PRINT “Nada ouvi dizer sobre esses pianos — 

2020 PRINT “ nemumrumor!”:GOTO 1140 
8000 PRINT “Neste jogo voce substitui James Bond, 
agente ’ 9 ; 

8010 PRINT “ secreto ingles 007. A sua tarefa consiste 
em 

8020 PRINT “descobrir onde se encontram uns pianos 
secretos 

8030 PRINT “roubados a uma potencia estrangeira. Para 

tai ”• 

8040 PRINT “necessitara de usar uma combinagao de 
inteligencia, 

8059 PRINT “ forga e sorte.” 

8060 PRINT “ Existem 100 agentes secretos suspeitos a ’ ; 
8070 PRINT “considerar. Sao ingleses, americanos, russos, 
8080 PRINT “ locais e neutros, estando espalhados por 10 

cidades.” 

8090 PRINT “ Convira usar um lapis e papel para tomar 
notas. 

8100 PRINT :INPUT “Carregue em RETURN quando 
estiver pronto”,Q$:PRINT 

8110 PRINT :PRINT “Para interrogar um agente suspeito, 
deve 99 * 

8120 PRINT “ obviamente encontrar-se na mesma cidade. 
Os”; 

8130 PRINT “ agentes podem dizer a verdadeoumentir. 

Os”; 

8140 PRINT “ agentes russos mentirao sempre, e os 
ingleses ”; 
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8150 PRINT “ dir-me-ao sempre a verdade. Os outros 

podem fazer”; ■ 

8160 PRINT “ ambas as coisas. De inicio nao sabera que 

tipo”; • , . 

8165 PRINT “de agente encontra, nem se esta ou nao a dizer 

a”; ■ 

8170 PRINT “ verdade. Se nao acredita nele pode 

ataca-lo ,, 

8180 PRINT “(a menos que se trate de uma senhora), mas ; 
8190 PRINT “ tenha cuidado — pode perder e ser 
morto!. Qualquer ”; 

8200 PRINT “ agente que o agredir partira imediatamente 
para ”; 

8210 PRINT “ outra cidade.” 

8220 PRINT :INPUT“Carregueem RETURN”,Q$ 

8222 PRINT :PRINT “Para interrogar um agente, escreva 

penas”; , , , 

8224 PRINT “ o seu numero. Para mudar de cidade, 

escreva 0. 9 ’ 

8230 PRINT “ Nao pode interrogar o mesmo suspeito ”; 
8240 PRINT “duas vezes de seguida, mas pode voltar mais 

t a rde.. 

8250 PRINT “ Se procurar alguem que nao vive numa dada ”; 

8260 PRINT “ cidade, a policia interessa-se por si: tenha ”; 
8270 PRINT “portanto cuidado! Encontrara ainda outras ”; 
8280 PRINT “ surpresas, mas se mantiver a calma 

conseguira ”; ,, 

8290 PRINT “ descobrir a verdade e encontrar os pianos ; 
8300 PRINT “ roubados. Boa sorte!” 

8310 PRINT 

9000 A = FNA(X): IF A(A,Z)<>0 THEN 9000 
9010 RETURN 

9020 PRINT _****„ 

9030 PRINT “****** Carregue em RETURN 

9040 INPUT Q$:PRINT:PRINT 

9050 PRINT “Saem policias de tras dos tapumes!” 

9060 IF L< = 8 THEN 9080 

9070 PRINT “Nao se esquega de que esta num pais 

comunista.” 

9080 INPUT “Resiste aprisao (S-N)?”,Q$ 
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9090 IF LEFT$(Q$,1) = “N” THEN PRINT “E conduzido a 
”;:GOTO 9140 

9100 GOSUB 9720:ON F + 1 GOTO 9120,9130,9290 
9120 PRINT “ Ma sorte! ”:GOTO 1640 
9130 PRINT “Quando acorda, ve-se ”; 

9140 PRINT “numa cela nua.”:GOSUB 9020 
9150 PRINT “Entra um guarda. 

9160 IF L<= THEN 9270 

9170 ON FNB(X) GOTO 9180,9200,9210,9210 

9180 PRINT “Estou a trabalhar com os servi?os secretos 

9185 PRINT “ ingleses, ”:GOTO9240 

9200 PRINT ‘“Trabalho para a CIA’, ”;:GOTO 9240 

9210 PRINT Tenho uma mensagem para si, ‘de”; 

9220 PRINT “ alguem chamado M. Diz que esta 
despedido!’”:GOTO 1640 

9240 PRINT “ ’ Vim para leva-lo daqui 
9250 PRINT “Algumas horas depois esta em local 
seguro.”:F = 0:RETURN 

9270 PRINT “‘Vamos!’ diz, ‘Esta ali alguem que gosta de 
9280 PRINT “ si — acabam de pagar-lhe a fian?a! ’ ”: F = 0 
9290 RETURN 

9300 PRINT “A luta continua, usando ambos todas as 

9301 PRINT “ armas disponiveis — punhos, pontapes, 
adagas 

9302 PRINT “ pistolas, karate, judo. Oseuopositor 

9303 PRINT “consegue rapidamente sobrepor-se, 

9310 F = FNA(X):IF F>98 THEN F = 2:PRINT “e mata 
-o!”:F = 2: RETURN 

9320 IF F>90 THEN F = 1 :PRINT ‘‘e deixa-o 
inconsciente! ”: RETURN 

9330 F = 0:PRINT “mas voce consegue”; 

9332 IF A(C,1) = 1 THEN PRINT “ domina-lo.”:RETURN 
9334 PRINT “domina-la.”:RETURN 

9340 IF A(C, 1) = 0 THEN PRINT “ Ela ”; :.RETURN 

9341 PRINT “ele”;:RETURN 

9350 PRINT C; “ diz suavemente, ‘Os unicos pianos que 
tenho,”; 

9352 PRINT “James, pode consulta-los a sua vontade... ; 
9354 PRINT “Ela beija-o arrebatadamente.”:INPUT “Voce 
corresponde” ,Q$ 


9358 IF LEFT$(Q$,1) = “S” THEN 9420 

9360 IF A(C,2)< = 2 THEN 9400 

9370 PRINT “Ela fica furiosa. Tirando um punhal ”; 

9380 PRINT “ da meia, ataca-o!” 

9390 GOTO 9300 

9400 PRINT “Elasuspira. “Voceetolo, James.’” 

9410 F = 3:RETURN 

9420 IF A(C,2)< = 2 THEN 9500 

9430 PRINT “Oh! Ela era uma agente russa. Enquanto voce ”; 
9440 PRINT “ dormia, ela ”;:IF RND>.1 THEN 9480 
9460 PRINT “cortou-lhe o pescogo (gentilmente, claro...)” 
9470 GOTO 1640 

9480 F= 1: PRINT “ deu-lhe amorosamente alguns murros 
no peito.” 

9490 RETURN 

9500 PRINT “Na manha seguinte, ao pequeno-almogo, ela 

dl 9510 Z = ABS(A(C,3)):IF C = P THEN 1720 
9515 IF A(C,3) = 0 THEN PRINT “ que nao sabe nada.” 
9520 F = 0:RETURN 

9540 FOR X = 1 TO 100:IF RND<.1 THEN 9560 
9550 IF A(X,4) = Z THEN PRINT X; 

9560 NEXT X:PRINT:PRINT:RETURN 

9570 ON A(R,2) + 1 GOTO 9580,9590,9600, 9610, 9620 

9580 PRINT “DESCONHECIDO”;:RETURN 

9590 PRINT “INGLES”;:RETURN 

5600 PRINT “AMERICANO”;:RETURN 

9610 PRINT “LOCAL”;:RETURN 

9620 PRINT “RUSSO”;:RETURN 

9630 REM — Descrever agente 

9640 PRINT “O agente e ”; 

9650 IF A(C, 1) = 1 THEN 9670 

9660 PRINT “ uma jovem elegante e sensual. ”:RETURN 
9670 IF C = INT(C/3)*3 THEN 9700 
9680 IF C = INT(C/3)*3 + 1 THEN 9710 
9690 PRINT “ um velhote aparentemente doente.”: 
RETURN 

9700 PRINT “ um respeitavel homem de negocios.”: 
RETURN 
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9710 PRINT “ umsujeitode forte constituicao.’’:RETURN 
9720 PRINT “Atacam~no por todos os lados. 
”;:F = L + FNC(X) 

9740 IFF = 13 THEN F = 2:PRINT ‘‘Voce esta morto!”: 
RETURN 

9750 IF F<5 THEN F = 0:PRINT “Voce foge por uma 
j anela. ’ ’: RETURN 

9760 F= 1:PRINT “Voce ficou inconsciente...”:RETURN 


Exemplo de execu^ao 

Deseja instrusdes? Nao. 

Importa-se de escrever um caracter? 5 
Um momento. 

007 — Descubra esses pianos e traga-mos! 

Sugiro que contacte o nosso agente n. 6 em Toquio — parece 
estar em perigo. A senha e GBK. 

Oh — e alguns dos agentes em Londres neste momento 
(ingleses e estrangeiros) sao 10 17 51 54 64 75 81 82 89 
Deseja uma lista impressa? Nao 

****** Carregue em RETURN ****** 

Voce esta ainda em Londres 
O seu contacto? 10 

O agente e um sujeito de forte constituigao 
‘Procure o agente n. 17 em Nova Iorque’ 

Acredita? Nao 
Voce ataca-o! 

A luta continua, usando ambos todas as armas disponiveis — 
punhos, pontapes, adagas, pistolas, karate, judo. O seu opositor 
consegue rapidamente sobrepor-se, mas voce consegue domina- 
~lo. 

‘Esta bem!’ diz o agente n. 10. ‘Procure o agente n. 39 em 
Moscovo/ 

Voce esta ainda em Londres. 

O seu contacto? 17 


O agente e um velhote aparentemente doente. 

‘Procure o agente 7 em Toquio.’ 

Acredita? Sim. 

Voce esta ainda em Londres. 

O seu contacto? 39 
Nao esta aqui! 

Voce ve dois policias aproximando-se 
Consegue escapar pelas traseiras. 

Voce esta ainda em Londres 

O seu contacto? 0 

Para onde, James? Toquio. 

O aviao foi sabotado e explodiu em voo! 

No entanto, voce nao ia nele! 

Voce esta agora em Toquio 

Ha uma mensagem de ‘M\ vinda de Londres. 

A mensagem diz — 

O AGENTE INGLES N. 33 EM CARACAS FOI ASSASSI- 
NADO 

Fim da mensagem 

Voce esta ainda em Toquio. 

O seu contacto? 6 

O agente e um velhote aparentemente doente. 

Qual e a senha? GBD 

‘Bemvindo a Toquio sr. Bond. Londres disse-me que estava 
parachegar.’ 

Deseja uma lista dos agentes que estao aqui? Sim 
6722436794 

Nada ouvi dizer sobre esses pianos — nem um rumor! 

Voce esta ainda em Toquio. 

O seu contacto? 7 
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O agente e uma jovem elegante e sensual. 

‘Nada sei, sr. Bond — e verdadeP 
Acredita? Nao. 

7 diz suavemente, ‘Os unicos pianos que tenho, James, pode 
consulta-los a sua vontade ... 9 
Ela beija-o arrebatadamente 
Voce corresponde? Sim 

Oh! Ela era uma agente russa. Enquanto voce dormia, ela 
cortou-lhe o pesco^o (gentilmente, claro...) 

Perdeu! Era 23 quern tinha os pianos. 

READY 


INDICE 


Prefacio. 

Introdu<?ao. 

Soma-diferen^a (0,5.K). 

Jogo de equilibrio (1,2 K). 

Jogodemoedas(2K). 

O Sr. Silva diz (3,5 K). 

O JogodeKim(2K). 

Algarismos significativos (3,5 K) 

Fizz Buzz (1,5 K). 

Discursos (2,5 K). 

Puzzle (2,5 K). 

Exercicio de escrita (3 K). 

Aritmetica (1,5 K). 

Series de numeros (3 K). 

Corridas de Cavalos (3 K). 

Nuclear (3,5 K). 

Escrever numeros (2 K). 

Pares (3,5 K). 

Leitura r&pida (5 K). 

Tickle (3 K). 

Mensagens secretas (3 K). 

Barco a motor (3 K)..... 

Caga a submarinos (5 K). 

Leilao(5,5K). 

Wotsit? (2,1 K). 

Casaassombrada(lOK). 

Pistoleiro (10,5 K). 

Bond 007 (13 K). 
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